Wie speche ich OnResize bzw. OnClick einer dynamisch erstellten Form an ?

[Linkat]

So nun habe ich doch die Lösung gefunden:
Hier ist der Link: http://www.delphipraxis.net/10009-dy...nach-ende.html

entscheidend ist:@Button.OnClick:=@SetzeColor;
Hier noch einmal mein Testprogramm:

Delphi-Quellcode:

var
  Form     :TForm;
  Button   :TButton;
  BitBtn   :TBitBtn;

procedure SetzeColor;
begin
  Form.color:=Form.color+1;
end;

procedure ErmittleDynWidthHeight;
begin
  Form.Caption:=IntToStr(Form.Width)+'   '+IntToStr(Form.Height)
end;

procedure TForm2.btErzeugeFormClick(Sender: TObject);
begin
  Form:=TForm.Create(Form2);
  Form.Top:=100;
  Form.Left:=100;
  Form.Width:=400;
  Form.Height:=300;
  Form.Visible:=true;
  Form.Caption:='Dyn. Form';
  @Form.OnResize:=@ErmittleDynWidthHeight;    //<-------------

  Button:=TButton.create(Form2);
  Button.parent:=Form;
  Button.Top:=Form.Height-70;
  Button.Left:=10;
  Button.Anchors:=[akLeft,akBottom];
  Button.Width:=90;
  Button.Height:=25;
  Button.caption:='S&tart Farbe';
  Button.Visible:=true;
  @Button.OnClick:=@SetzeColor;    //<-------------

  BitBtn:=TBitBtn.Create(Form);
  BitBtn.parent:=Form;
  BitBtn.Top:=Form.Height-70;
  BitBtn.Left:=Form.Width-100;
  BitBtn.Anchors:=[akRight,akBottom];
  BitBtn.Kind:=bkClose;
  BitBtn.Caption:='&Schließen';
  BitBtn.Visible:=true;

end;

Vielen Dank für eure Bemühungen.


Gruß, Linkat