سلام
چگونه میتوان از کلید های F1 تا F12 به عنوان کلید میانبر یه عمل خاص استفاده کرد
سلام
چگونه میتوان از کلید های F1 تا F12 به عنوان کلید میانبر یه عمل خاص استفاده کرد
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Key =VK_F1) then
////
end;
[/code]
آقا فرزاد ممنون