ctrl kombinasyonlarını engelleme

[rsimsek]

İş çok uzadı gibime geliyor

Sadece Ctrl + F5 için;

Kod: Tümünü seç

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key = VK_F5) then
  begin
    Key := 0;
    ShowMessage('Ctrl + F5 ''e basıldı');
  end;
end;

Bu da genel;

Kod: Tümünü seç

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key in [32..122]) then // ' ' boşluktan 'z' ye kadar
  begin
    Key := 0;
    ShowMessage('Ctrl tuş bileşenine basıldı.');
  end;
end;

OnKeyDown (tuşa basılı tuttukça tetiklenir), OnKeyPress (tuşa basılı tuttukça tetiklenir) ve OnKeyUp (basılan tuşu bıraktıkça bir kez tetiklenir)

Bu kadar basit bir şeye bu kadar takıldıkça programcılıkta yol almanız da zor olacaktır doğrusu Takıldığınız konuda daha yazarken F1 tuşunu çekinmeden kullanmanız bu takılmalarınızı azaltacaktır

[TRSoft]

s.a.
key prese yazmayı dene
çünkü keydown olayı tuşlara basma işlemi bittikten sonra gerçekleşiyor.

Hocam yanlışım varsa düzeltin ama Ctrl - Shift - Alt gibi tuşların kontrolünü keypress yordamında kontrol edemezsiniz..
Ayrıca OnKeyDown yordamı tuşa basıldığı anda tetiklenmektedir. Keyup ise elinizi tuşun üzerinden çektiğinizde...

Gerçi ben @rsimsek hocamın yazısını sonradan gördüm o gerekli açıklamayı yapmış..

[aslangeri]

s.a.
ups... padon arkadaşlar. Delphide kontrol etmeden hatırımda kaldığı kadarı ile yazdıydım...
Verdiğim Yanlış bilgiler için özür dilerim.

[sga]

ben ilk orda denemiştim zaten olmayınca keydown olayında denedim.bunu daha önce denedim şöyle yapman lazım şundan olmuyodur diyecek biri yok mu

[sga]

sorunumu başka türlü çözmeye çalıştım.olmamasının nedenide sanırım key e sıfır atadığımızda kopyalanacak şeyin çoktan hafıza ya alınmış olması.