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.

[Gausi]

Ich will ja deinen Enthusiasmus für dein Projekt nicht schmälern, aber wozu brauche ich so eine Komponente, wenn ich einfach das OnkeyDown oder OnKeyPress-Event des Formulars dafür nehmen kann? Gut, ich muss dann natürlich KeyPreview auf True stellen, aber sonst...

Oder habe ich dein Vorhaben falsch verstanden?

[xaromz]

Hallo,

• verwende für Deine Events doch den Typ TNotifyEvent, der ist schon definiert.
• Deine Komponente wird sicher nicht von TApplication abgeleitet, sondern von TComponent.
• Du musst die Nachrichtenbehandlungsmethode des Forms durch eine eigene ersetzen, Dir die entsprechenden Nachrichten raussuchen und darauf reagieren. Nicht vergessen: Die Original-Methode in Deiner neuen am Ende aufrufen und beim Zerstören des Objekts diese wiederherstellen.

Gruß
xaromz

[Christian18]

Hallo,

der Sinn dieser Komponente ist Quellcode einsparung. Also ich finde es übersichtlicher, wenn ich eine Komponente auf meiner Form habe, als wenn ich bei jeder Form OnKeyDown selber schreiben muss.

MFG Christian18

[RavenIV]

Zitat von Christian18:

Hallo,

der Sinn dieser Komponente ist Quellcode einsparung. Also ich finde es übersichtlicher, wenn ich eine Komponente auf meiner Form habe, als wenn ich bei jeder Form OnKeyDown selber schreiben muss.

MFG Christian18

Ich habe da einen anderen Standpunkt:
ich verwende so wenig wie möglich Komponenten.
Sonst muss ich mir merken, diese Kompo macht jenes, eine andere Kompo fängt dieses ereignis ab, usw.
Wenn ich alles mit den Standard-Methoden mache, habe ich vollen Einblick, was passiert.
Und vor allem klappt das mit dem Debuggen besser.

[Christian18]

Naja,

vieleicht habt ihr recht aber wie kann ich mein porblem trotzdem lösen???

[xaromz]

Hallo,

Zitat von Christian18:

Naja,

vieleicht habt ihr recht aber wie kann ich mein porblem trotzdem lösen???

hast Du Dir meinen Beitrag schon durchgelesen?

Gruß
xaromz

[Christian18]

Ja habe ich schon,

aber irgendwie verstehe ich das nicht so ganz. Hast du ein kleines Bsp. dafür???

[SirThornberry]

die einfachste Variante ist wohl in dein Private ein TApplicationEvents zu packen, dort das OnMessage auszuwerten (ob die Message KeyDown war und ob es sich um die gewünschten Tasten handelt) und dein Ereignis auslösen.