Das Beispiel ist jetzt vielleicht etwas zu groß, aber so ähnlich hatte ich das mal umgesetzt.
Ich erstelle einfach ein neues Event (TOnSpecialClick) für das zweite Formular und weise nach dem Create diesem eine Methode des Hauptformulars zu.
Delphi-Quellcode:
{ MainForm }
type
TMainForm = class(TForm)
Button: TButton;
procedure ButtonClick(Sender: TObject);
private
// wird aufgerufen, wenn auf dem zur Laufzeit erstellen Formular ein Butten gedrückt wird
procedure OnSpecialFormClick(Sender: TObject; const ASpecialText: string);
end;
{...}
procedure TMainForm.ButtonClick(Sender: TObject);
var
SpecialForm: TSpecialForm;
begin
SpecialForm := TSpecialForm.Create(nil);
try
SpecialForm.OnSpecialClick := Self.OnSpecialFormClick;
SpecialForm.ShowModal;
finally
SpecialForm.Free;
end;
end;
procedure TMainForm.OnSpecialFormClick(Sender: TObject; const ASpecialText: string);
begin
ShowMessage(Format('%s clicked. Text: %s', [TComponent(Sender).Name, ASpecialText]));
end;
Delphi-Quellcode:
{ SpecialForm }
type
TOnSpecialClick = procedure(Sender: TObject; const ASpecialText: string) of object;
TSpecialForm = class(TForm)
SpecialButton1: TButton;
SpecialButton2: TButton;
SpecialEdit: TEdit;
// OnClick Event für beide Buttons
procedure SpecialButtonClick(Sender: TObject);
private
FOnSpecialClick: TOnSpecialClick;
public
property OnSpecialClick: TOnSpecialClick read FOnSpecialClick write FOnSpecialClick;
end;
{...}
procedure TSpecialForm.SpecialButtonClick(Sender: TObject);
begin
if Assigned(FOnSpecialClick) then
FOnSpecialClick(Sender, SpecialEdit.Text);
end;