استفاده از کد اسکی در تابع

[Delphi7_love]

یه فرم دارم که حدود 20 تا ادیت داره میخوام یه تابع بنویسم که وقتی تابع رو صدا میزنم مثلا اگر کد اسکی 13 بود یه فرم دیگه نشون داده بشه و ... چطور میتونم این کارو انجام بدم

[pezhvakco]

درود :
تابع رو بنویس و در روبداد OnKeyDown اون ادیت ها فراخوانیش کن . مقدار Key روبداد OnKeyDown رو به تابع بفرست و یه دستور شرطی بنویس که اگه کد مورد نظر بود، کار لازم رو انجام بده .

فکر خوش .

[Delphi7_love]

میشه این کد و برام اصلاح کنید ؟ مشکل چیه؟
procedure chekkey();
begin
case key of
13:
showmessage('13');
14:
showmessage('14');
15:
showmessage('15');
16:
showmessage('16');
end;
end;

[pezhvakco]

در تابع شما متغییر key کجا تعریف شده ؟


procedure ChekKey(Key: Word);
begin
case Key of
13: ShowMessage('13');
14: ShowMessage('14');
15: ShowMessage('15');
16: ShowMessage('16');
end;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ChekKey(Key);
end;

فکر خوش .