OnKeyDown/Press Ereignis bei dynamisch erzeugtem Edit

[Exciter]

Verdammt, ich krieg's nicht hin !
Zur Entwurfszeit kein Problem ...

Code:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Var User : String;

begin
If (Key= (VK_RETURN)) And Not (Edit1.Text='') Then
   begin
    User := 'IrgendEinUser'
    Server1.SendPrivateMsg(User, Trim(Edit1.Text));
    Edit1.Text:='';
end;

Aber wie erstell ich sowas dynamisch ???

[Christian Seehase]

Moin Exiter,

wenn Du so fragst: Gar nicht.

Du musst die Routine als solche schon im Programm haben, und weist sie dann zur Laufzeit zu.

Vorher muss die Routine natürlich in der Lage sein unabhängig vom verwendeten Edit zu sein:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
Var User : String; 

begin
  // Nur zur Sicherheit  
  if sender ist TEdit then
  begin
    If (Key= (VK_RETURN)) And Not (TEdit(Sender).Text='') Then 
    begin 
      User := 'IrgendEinUser' 
      Server1.SendPrivateMsg(User, Trim(TEdit(sender).Text)); 
      TEdit(sender).Text:=''; 
    end;
  end;
end;

[Exciter]

Moin Christian !

Jau, das hat hingehaun. Danke !
Aber ich werd das mit dem Chat wohl erstmal in Ruhe lassen.
Ich hab nämlich jetzt noch versucht meinen TEdit(Sender).Text in das auch dyn. erstellte TListView zu schreiben. Aber da hagelt's Exceptions ... GRRR
War wohl doch ein wenig zu heftig für'n Anfang ...