Forma i Esc

0

Witam,

Mam formę i na niej kilka obiektów. Niech to będą Radio buttony, Checkbox'y, pola Edit itp. Oprocz tego niech będzie też Button domyślnie zaznaczony. Teraz tak. Nie wiem jak zrobić żeby po wciśnięciu klawisza Escape forma zamknęła się. Napisałem prościutką procedurę:

procedure TMain.Esc(Sender: TObject; var Key: Char);
begin
  if Key = #27 then
    Close;
end;

Jednak działa ona oczywiście tylko na tym komponencie, który ma ją podpietą w OnKeyPress. Pytanie kluczowe: Czy da się jakoś zrobić GLOBALNIE tę procedurę aby działała na wszystko to, co znajduje się na formie?

0

Ustaw w Formie KeyPreview:=True;

0

Ustaw w Formie KeyPreview:=True;

i oczywiście podepnij pod OnKeyPress formy :)))

0

Działa pięknie. Dzięki za pomoc.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0