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.