Komponente schreiben, die Wenn ESC gedrückt wird eine proc.

[Christian18]

Hallo,

ich bin gerade dabei eine Komponente zu schreiben mit der ich folgendes machen kann:

- Wenn man diese Komponente auf die Form setzt, dann soll man bei den Ereignissen folgende einstell möglichkeiten haben:

ESC, Enter, Einfg, Entf.

- Wenn die Komponente auf der Fprm ist, dann soll wenn die ESC Taste gedrückt wird die Procedure ausgeführt werden, wie übergeben wird.

Wie kann ich das machen???

Ich habe schon mal gegonnen. Mein Code sieht jetzt so aus:

Delphi-Quellcode:

unit KeyDown;

interface

uses
  SysUtils, Classes, Forms;

type TEinfg = procedure (Sender: TObject) of object;
type TEnter = procedure (Sender: TObject) of object;
type TEntf  = procedure (Sender: TObject) of object;
type TESC   = procedure (Sender: TObject) of object;

type
  TKeyDown = class(TApplication)
  private
    FEinfg : TEinfg;
    FEnter : TEnter;
    FEntf  : TEntf;
    FESC   : TESC;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    property Einfg : TEinfg Read FEinfg Write FEinfg;
    property Enter : TEnter Read FEnter Write FEnter;
    property Entf  : TEntf Read FEntf Write FEntf;
    property ESC   : TESC Read FESC Write FESC;
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TKeyDown]);
end;

end.