نوشتن كد براي دكمه هاي up و down

[hentjanson]

سلام چطور ميشه روي كليد هاي بالا و پايين صفحه كليد برنامه نوشت ؟

[Hsimple11]

VirtualKey را جستجو کنید.

[اصغر (پآچ)]

دوست من

می تونی توی هر کامپوننت در رویداد OnKeyUp کد های مربوط به VirtualKey که (VK_UP و VK_Down) می باشد را استفاده کنی.

قبلا هم در سایت بحث شده جستجو کن

موفق و موید باشی

[SYNDROME]

1-می توانی برای هر کامپونت جداگانه بنویسی.
2-می توانی در رویداد OnKeyDown مربوط به فرمتان بنویسید و KeyPreview را True کنید.
3-از ابزار Application استفاده کنید.
موفق باشید

[hentjanson]

سلام بچه ها من يك كد مثل اين دارم كه وقتي روي هر سطر جدول كليك بشه maskedit ها برابر با مقادير بانك قرار مي گيرند . در شرايط معموملي من بايد روي هر سطر كليل كنم ولي من مي خوام با زدن دكمه پايين هم به ركورد بعدي برم اين كد منه ؟


procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
with ADOTable1 do
begin
if FieldByName('lito').AsString = 'ÒÑÏ' then
Shape4.Brush.Color:=clyellow;
if FieldByName('lito').AsString = 'ÓÝíÏ' then
Shape4.Brush.Color:=clwhite;
if FieldByName('lito').AsString = 'ÓÈÒ' then
Shape4.Brush.Color:=clgreen;

if FieldByName('horof').AsString = 'ÒÑÏ' then
Shape6.Brush.Color:=clyellow;
if FieldByName('horof').AsString = 'ÓÝíÏ' then
Shape6.Brush.Color:=clwhite;
if FieldByName('horof').AsString = 'ÓÈÒ' then
Shape6.Brush.Color:=clgreen;

if FieldByName('jeld').AsString = 'ÒÑÏ' then
Shape5.Brush.Color:=clyellow;
if FieldByName('jeld').AsString = 'ÓÝíÏ' then
Shape5.Brush.Color:=clwhite;
if FieldByName('jeld').AsString = 'ÓÈÒ' then
Shape5.Brush.Color:=clgreen;

if FieldByName('chap').AsString = 'ÒÑÏ' then
Shape2.Brush.Color:=clyellow;
if FieldByName('chap').AsString = 'ÓÝíÏ' then
Shape2.Brush.Color:=clwhite;
if FieldByName('chap').AsString = 'ÓÈÒ' then
Shape2.Brush.Color:=clgreen;

if FieldByName('sahafi').AsString = 'ÒÑÏ' then
Shape3.Brush.Color:=clyellow;
if FieldByName('sahafi').AsString = 'ÓÝíÏ' then
Shape3.Brush.Color:=clwhite;
if FieldByName('sahafi').AsString = 'ÓÈÒ' then
Shape3.Brush.Color:=clgreen;

if FieldByName('matn').AsString = 'ÒÑÏ' then
Shape1.Brush.Color:=clyellow;
if FieldByName('matn').AsString = 'ÓÝíÏ' then
Shape1.Brush.Color:=clwhite;
if FieldByName('matn').AsString = 'ÓÈÒ' then
Shape1.Brush.Color:=clgreen;
end;
maskedit2.Text:=ADOTable1.fieldbyname('code').asst ring;
maskedit22.Text:=ADOTable1.fieldbyname('shabek').a sstring;
maskedit3.Text:=ADOTable1.fieldbyname('namketab'). asstring;
maskedit4.Text:=ADOTable1.fieldbyname('nammoalef') .asstring;
maskedit5.Text:=ADOTable1.fieldbyname('nammotrajem ').asstring;
maskedit6.Text:=ADOTable1.fieldbyname('namvirastar ').asstring;
maskedit7.Text:=ADOTable1.fieldbyname('tel').asstr ing;
maskedit8.Text:=ADOTable1.fieldbyname('address').a sstring;
ComboBoxEx7.Text:=ADOTable1.fieldbyname('vazeyat') .asstring;
ComboBox4.Text:=ADOTable1.fieldbyname('ghat').asst ring;
maskedit13.Text:=ADOTable1.fieldbyname('mobile').a sstring;
maskedit14.Text:=ADOTable1.fieldbyname('nobat').as string;
maskedit15.Text:=ADOTable1.fieldbyname('paper').as string;
ComboBox3.Text:=ADOTable1.fieldbyname('noee').asst ring;
maskedit16.Text:=ADOTable1.fieldbyname('tiraj').as string;
maskedit17.Text:=ADOTable1.fieldbyname('year').ass tring;
maskedit18.Text:=ADOTable1.fieldbyname('sefaresh') .asstring;
maskedit19.Text:=ADOTable1.fieldbyname('date1').as string;
maskedit20.Text:=ADOTable1.fieldbyname('vosol').as string;
maskedit23.Text:=ADOTable1.fieldbyname('gheymat'). asstring;
if ADOTable1file.Text <> '' then
Image1.Picture.LoadFromFile(AppPath+'\Pictures\'+A DOTable1file.Text)
else
Image1.Picture.LoadFromFile(AppPath+'\Pictures\Non e.jpg');
end;

[babak_delphi]

شما این shape ها و Maskedit ها رو کجا قرار دادید؟

[hentjanson]

تو يك فرم جاي گرفتن

[SYNDROME]

اگر می خواهید با بالا و پایین شدن در DBGrid اطلاعات رکورد مورد نظر را واکشی کنید بهتر است این کدها را در AfterScroll مربوط به ADO بنویسید که با جابجا شدن بر روی رکوردهای dBGrid چه با موس و چه با صفحه کلید ازلاعات رکورد مورد نظر در Box ها واکشی شود.
موفق باشید

[babak_delphi]

استفاده از OfterScroll بعضی جاها مشکا ساز میشه
بهتره به جهی اون از یک DBEdit استفاده کنی و اون رو به یک فیلد کلیدی وصل کنی و خاصیت Visible اون رو False کنی و کد مورد نظر رو در رویداد OnChange اون بنویسی

[SYNDROME]

استفاده از OfterScroll بعضی جاها مشکا ساز میشه
بهتره به جهی اون از یک DBEdit استفاده کنی و اون رو به یک فیلد کلیدی وصل کنی و خاصیت Visible اون رو False کنی و کد مورد نظر رو در رویداد OnChange اون بنویسی
می توانید بگویید چه مشکلی ممکن است پیش بیاید؟
در مواقعی هم که می خواهی در afterScroll دستورات اجرا نشود می توانی از Tagخود ADO استفاده کنید.


IF ADO.Tag = 1 Then
Begin

End;

اگر خواستید دستورات اجرا نشود Tag را 0 کنید
موفق باشید