prozedur soll eine Button-Click prozedur aufrufen

[radekj]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key = Chr(13) 
  then self.Button1Click([color=#ff0000]?[/color]); //<- self und nicht TForm, man braucht ein Objekt und nicht Klasse !!!
  //es geht auch so:
  //then Button1Click([color=#ff0000]?[/color]); //aber mit self. ist der code lesbarer ! 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  close; 
end;