KeyDown olayı ESC ile çalışmıyor Shift+ESC ile çalışıyor

[uğur alkan]

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
F,L,K:integer;
begin
if Key = VK_escape then showmessage('Operation Stoped... ');
end.

bu kod esc tuşuna basınca çalışmıyor ancak Shift+ESC yapınca çalışıyor neden böyle acaba anlamadım ilk defa böyle bir durumla karşılaştım.

[Begin.End]

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
begin
  case key of
{esc}     27 : showmessage('..............');
               .
               .
               .

buna benzer bısey olabılırmı acaba?

[mrmarman]

- Başka bir nesne üzerinde focus olmuşsundur.

- Form'unun KeyPreview özelliği True yaptın değil mi ? Öyle değilse başka bir event yakalıyordur ve burası mesaj veriyor sanıyorken aslında orası mesaj veriyordur... Aklıma böyle bişey geliyor...

- Yoksa bu kodun çalışıyor..

[akdatilla]

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
F,L,K:integer;
begin
if Key = VK_escape then showmessage('Operation Stoped... ');
end.

bu kod esc tuşuna basınca çalışmıyor ancak Shift+ESC yapınca çalışıyor neden böyle acaba anlamadım ilk defa böyle bir durumla karşılaştım.

s.a.
formun Keypreview özelliğini true yaptıktan sonra aşağıdaki gibi yaparsan sadece Esc ile mesaj gösterilecektir.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_escape) and (Shift=[]) then showmessage('Operation Stoped... ');
end;

kolay gelsin.

[uğur alkan]

KeyPreview özelliği True zaten yaptım.
Ancak ESC tuşuna tek bastığım zaman komut yorumlanmıyor
ama Shift+ESC yapınca komut yorumlanmıyor...
bu çok anlamsız bir durum diğer F1-F2... F12 sorunsuz dönüyor ama ESC dönmüyor.

Bide uygulamada Raize kullanmıştım onunla bir alakası olabilirmi.

[aslangeri]

s.a.
forma koyduğunuz butonlardan vs. herhangi birinin cancel özelliği true ise ondan dolayı esc tuşunu yakalamıyor olabilir.
kolay gelsin.

[uğur alkan]

A.S.
Evet sorun raize butonlarının hepsinin Cancel özelliğinin TRUE olmasından
kaynaklanıyor. Çok Teşekkür Ederim.