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

[Linkat]

Hallo Thomas,
vielen Dank für die schnelle und richtige Antwort. Es funktioniert tatsächlich.

Leider war mein Beispiel nicht ganz richtig. Auch ist die Bezeichnung meiner Forms unglücklich (#1 dyn. Form ist Form2, #4 dyn. Form ist Form).

Ich muss das OnClick-Ereignis ja auf meine dynamische Form Form und nicht auf die statische Form Form2 anwenden.

Wo muss ich die procdure SetzeColor deklarieren, damit sie auf die dyn. Form wirkt?

Gruß, Linkat

[DeddyH]

Wie wäre es denn mitForm.OnClick := SetzeColor;

[Linkat]

Ich möchte ja, dass das Ereignis bei Klicken auf den dyn. erzeugten Button wirkt. Irgendwie muß ja im Deklarationsteil die procedure für das Object Form bekanntgegeben werden.

Wahrscheinlich hat Bernhard (siehe #3) mit seinem Vorschlag:

Zitat:

type MyClass
procedure MeineKlassenMethodeMitPassenderSignatur(Sender: TObject);

...
Button.OnClick = MeineKlassenMethodeMitPassenderSignatur;
...

nicht ganz unrecht, aber ich weiß nicht wie ich das umsetzen soll.

Gruß, Linkat

[Bummi]

Du kannst alles auf einer Routine in Deinem Mainform umbiegen und dort den Sender, bzw den Owner des Senders ermitteln, ungeprüft und ohne Sicherheitsabfragen nur ein Beispiel....

Delphi-Quellcode:

Procedure Mainform.SetColor(Sender:TObject);
begin
  TForm(TComponent(Sender).Parent).Color := TComponent(Sender).Tag;
      
end;