delphide kısayol atama

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb delphide kısayol atama

Bu konudaki kullanıcılar: 1 misafir

3
Cevap 1939
Tıklama 0
Öne Çıkarma

1. sayfa

delphide kısayol atama

Cevap Yaz

tutkun

20 yıl (334 mesaj)

Yüzbaşı

Konu Sahibi

Arkadaşlar delphide mesela bir tane kaydet butonu ekledim bunun kodunu yazdım fakat bunu ben F2 tuşuna bastığımda da aynı işi yapmasını istiyorum....

rafet32

20 yıl (1844 mesaj)

Binbaşı

Formun

OnKeyUp events inde

kaydetme işlemini yaptığın kontolün OnClick olayını çağırabilirsin.

Kaydetme işlemini Button1.OnClick olayında yaptıysan

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Button1.OnClick(sender);
end;

Bu mesaja 1 cevap geldi.

tutkun

20 yıl (334 mesaj)

Yüzbaşı

Konu Sahibi

rafet32 yazdığınız Shift: TShiftState);
bu komuttan ben bir şey anlamadım anlatırmısınız

burada ben kısayol tuşunu nereye yazacam mesela F3,F4, ALT+K bu gibi kısayolları nasıl kullanabilirim ben bunu öğrenmek istiyorum...

Bu mesaja 1 cevap geldi.

rafet32

20 yıl (1844 mesaj)

Binbaşı

{$R *.dfm}

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
If key=vk_f2 then //F2 tuşuna baılırsa
begin
//keydetme ile ilgili kontrollörün programı
button1.OnClick (sender);
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Kaydedildi :) ');
//veya diğer kodlar
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.KeyPreview :=true; //form create de keypreview in true yapılması gerekmektedir.
end;

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb delphide kısayol atama