PDA

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


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

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

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

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