Eigene Klasse von TForm ableiten - Events

[DeddyH]

Delphi-Quellcode:

procedure TfrmMain.Wuppdi(Sender:TObject; sAction: String); //muss natürlich als Methode deklariert sein
begin
  ShowMessage('Da schau her: ' + sAction);
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var 
  test: TMyForm;
begin
  test := TMyForm.Create(nil);
  try
    test.MyEvent := Wuppdi;
    test.SetMyParams('TEST');
//    test.ShowModal;
  finally
    test.Free;
  end;
end;