Event in andere Form übertragen

[Björn Ole]

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;