چگونه KeyDown یك استرینگ گریده رو صدا بزنم

[mehdi_moosavi]

سلام
این پروسیجر مربوط به KeyDown یه استرینگ گریده

procedure TForm1.sg1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);

ولی من توی فراخوانی اون از جاهای دیگه مشکل دارم مثلا وقتی کد زیر رو مینویسم پیغام خطا میده

    sg1KeyDown(Sender,key,tsh);

بنظر شما پارامترهای اون رو چطور باید بنویسم ؟

[Ali_Hashemi]

سلام
پیغام خطا رو که نگفتی چیه اما به احتمال قریب به غریب مشکل به پارامتر key مربوط میشه

چون این پارامتر از نوع Var هست ، پس شما هم باید یک متغیر Var تعریف کنید و مقدار رو داخل اون قرار بدید و
سپس اونو بع پروسیجر ارسال کنید.

احتمال وجود مشکل در پارامتر Sender هم هست- نه نیست - فکر کنم مشکلت همونه که گفتم. اگه حل نشد متن پیغام خطا رو بگو بینیم چه میشه کرد . :sunglass:

[kamyar_kimiyabeigi]

شما باید پارامتر مربوط به key را از نوع word به صورت زیر بدین

Word	0..65535	unsigned 16-bit

[m-khorsandi]

درود

من یه نمونه برای OnKeyDown فرم نوشتم ، خودت میتونی عوضش کنی:

procedure TForm1.Button1Click(Sender: TObject);

var

  Key: Word;

begin

  FormKeyDown(sender, key, []);

end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  showmessage('okay...');

end;

[mehdi_moosavi]

سلام
مرسی از راهنمایی شما
مشکل توی اون دوتا کروشه باز و بسته بود
خیلی ممنون

[m-khorsandi]

:)