ورود

View Full Version : ارسال پیام با فشردن کلید F12


khoshblagh
یک شنبه 20 مهر 1399, 21:48 عصر
با سلام خدمت دوستان
میخواهم با فشردن کلید F12 پیامی نمایش داده شود.من از کد زیر با مثل Esc میتوانم پیام را نمایش دهم ولی برای F12 نمیدانم از چه کدی استفاده نمایم؟ متشکرم

if Key=Char(123) then showmessage(strCompany);
یوسف زالی
یک شنبه 20 مهر 1399, 22:45 عصر
سلام.
VK_F12
khoshblagh
یک شنبه 20 مهر 1399, 23:19 عصر
با تشکر از پاسختان به صورت زیر کد جواب نداد.

if Key=Char(VK_F12) then showmessage(strCompany);
khoshblagh
یک شنبه 20 مهر 1399, 23:41 عصر
با تشکر از جناب آقای زالی
این را در نت پیدا کردم.

procedure TfrmMainForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (Shift = []) and (Key = VK_F12) then ShowMessage(strCompany);end;