Laufzeit: Erzeugung von Komponenten

[Gerkey]

Habe aus dem Handbuch Borland Delphi 7 (Doberenz und Gewinnus) nachstehenden Beispiel-Code von Seite 314 übernommen (nur geringfügig modifiziert) :

Delphi-Quellcode:

var
  M: TM;
  edField : Tedit;

implementation      {$R *.dfm}

procedure TM.Button1Click(Sender: TObject);
begin
  if TEdit(FindComponent('eSpNr')) = nil then
    begin
      edField := TEdit.Create(self);
      edField.Parent := Self;
      edField.Name := 'eSpNr';
      edField.SetBounds(50,100,50,25);
      edField.OnClick := EditClick;
    end;
end;

Bei der Ausführung erscheint die Fehlermeldung: undeklarierter Bezeichner “EditClick”.
Ohne das Statement EdField.OnClick klappt’s.

Was mache ich falsch ?

Gerkey

[Ritsch]

Gibt es die procedure EditClick überhaupt?

[Geda]

"EditClick" ist eine Zuweisung - die Ereignis-Prozedure musst Du selber schreiben (TNotifyEvent).

z.B.:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure EditClick(Sender: TObject);
  end;


procedure TForm.EditClick(Sender: TObject);
begin
  ShowMessage('Hallo Delphi');
end;

procedure TForm.FormCreate(Sender: TObject);
begin
  Edit1.OnClick := EditClick;
end;

[Gerkey]

Danke ! Das hat geholfen !
Hatte angenommen, dass der Beispiel-Code im Handbuch vollständig war !

Gerkey