Globale Tastaturabfrage

[HaJo]

So funktioniert die Tastaturabfrage

Delphi-Quellcode:

procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if Key = #13 then
      self.perform(wm_nextdlgctl,0,0);

   IF Key = #6 then
      MessageDlg('Ab dem 30.01.1999 wird mit F3 gesucht.', mtInformation, [mbOk], 0);

   if Key = #27 then
      begin
         Abort := TRUE;
         forms.Application.Minimize;
      end;
END;

Viel Spaß
Jochen

[edit=sakura] [delphi]_tags Mfg, sakura[/edit]