OnKeyDown/Press Ereignis bei dynamisch erzeugtem Edit

[Exciter]

Moin zusammen !

Ich möchte bei einem dynamisch erzeugtem TEdit auf ein OnKeyDown/Press Ereignis reagieren. Ich hab' mir diesen Thread durchgelesen http://www.delphipraxis.net/viewtopic.php?t=1934. Mir ist aber nicht klar wie ich die Methode deklarieren muss. Ein kurzes Beispiel wäre super !

[Christian Seehase]

Moin Exicter,

prima, dass Du schon mal angefangen hast Dich schlau zu machen.

Diese Methode(n) sollten dort deklariert werden, wo auch die anderen Methoden des Formulares stehen.
Oben in der Unit hast Du ja so etwas wie:

Delphi-Quellcode:

TForm1 = class(TForm)
  // Hier stehen jetzt alle möglichen Komponenten, die Du auf dem Formular hast
  // und auch die Ereignisprozeduren
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

Dort bringst Du auch Deine eigenen Prozeduren unter:

Delphi-Quellcode:

TForm1 = class(TForm)
  //...
  procedure MeinKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

jetzt fehlt nur noch im implementation Abschnitt die eigentliche Prozedur

Delphi-Quellcode:

implementation

procedure TForm1.MeinKeyPress(Sender: TObject; var Key: Char);
begin
  // Was auch immer passieren soll
end;

und zugewiesen wird's dann meist an der Stelle, an der man die Komponente dynamisch erzeugt.
Hier mal als Beispiel im FormCreate.

Delphi-Quellcode:

procedure TfrmMAIN.FormCreate(Sender: TObject);
begin
  with TEdit.Create(self) do
  begin
    // Was auch immer sonst noch für das TEdit angegeben werden soll
    OnKeyDown := MeinKeyDown;
  end;
end;

Du kannst natürlich auch jede beliebige andere schon existierende Methode so zuweisen, solange die Parameterliste mit der erforderlichen übereinstimmt.

[CalganX]

Mal eine Frage:

1. Bei der einfachen VCL-Programmierung wird ButtonXClick(Sender: TObject) genommen
2. Bei Komponenten muss man aber TMyButton.Click (ohne irgendwas) nehmen

Und bei nonVCL ist es glaube ich auch noch mal anders.
Kann mir das mal bitte erklären? Ich dachte Delphi wäre einigermaßen logisch...

Chris

[Christian Seehase]

Moin Chris,

Deine Punkte 1 und 2 sind aber identisch.

In beiden Fällen handelt es sich um eine OnClick Routine.
Im ersten Falle als Methode eines Formulares (die dann einem Button zugewiesen wird), im zweiten die eines Button. (bei der ersten gehört ja wohl auch noch ein TForm1. o.ä. davor )

[Exciter]

Moin Moin !

Gesagt getan. Funzt aber nicht ...
(Das ganze soll ein Chat mit Private Messages werden und für jeden Chat/jede PM soll ein eigener TabSheet mit nem Edit/ListView erstellt werden)

Code:

  ...
  NewTab := TTabSheet.Create(Form1.PageControl3);
  NewTab.PageControl := Form1.PageControl3;
  NewEdit := TEdit.Create(NewTab);
  NewListView := TListView.Create(NewTab);
  TWinControl(NewEdit).parent := NewTab;
  TWinControl(NewListView).parent := NewTab;
  OnKeyDown := MeinKeyDown;
end;

Das funzt auch alles soweit. Nur passiert nix, wenn ich im Programm auf 'Return' drück'.

Code:

procedure TForm1.MeinKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin
If (Key= (VK_RETURN)) And Not (NewEdit.Text='') Then
   begin ....

und hier das nächste Problem: Wie kann ich jetzt etwas mit dem eben erstelltem ListView anstellen ??

Thx für die Hilfe
Patrick

[Helld_River]

blöde Frage, aber hast Du bei deinem Formular KeyPreview auf TRUE gesetzt ?
Was ich bei deinem Code nicht verstehe, ist die Zuweisung

OnKeyDown:=MeinKeyDown;

Zu welcher Komponente gehört dieses OnKeyDown ?

[CalganX]

Vermutlich zu TForm1
Du schreibst ja auch Canvas.Draw und nicht Form1.Canvas.Draw (denk ich doch mal)...

Chris

[Helld_River]

Könnte hinkommen !
Wenn ich das Problem aber richtig verstanden habe, dann möchte Exciter doch auf ein Tastaturereignis vom dynamisch erzeugten TEdit reagieren, somit müsste doch MeinKeyDown an NewEdit zugewiesen werden, oder ?

[CalganX]

Jepp, dann müsste es wirklich NewEdit.OnKeyDown heißen. Er kann es so lassen, wenn Form.KeyPreview = true ist...

Chris

[Exciter]

Ääääh hmmm ...

Also:
- KeyPreview ist true.
- OnKeyDown:=MeinKeyDown; sollte für's dynamisch erstellte TEdit sein.

Zitat:

Könnte hinkommen !
Wenn ich das Problem aber richtig verstanden habe, dann möchte Exciter doch auf ein Tastaturereignis vom dynamisch erzeugten TEdit reagieren, somit müsste doch MeinKeyDown an NewEdit zugewiesen werden, oder ?

Genau das hatte ich eigentlich vor !

Patrick