TNotifyEvent mit String Parameter ?

[Christian Seehase]

Moin Madbrain,

wenn ich Dich richtig verstanden habe, könntest Du es so machen:

Delphi-Quellcode:

type 
  TcsMyProc = procedure(AsStringParameter : string);

implementation

{$R *.DFM}

procedure TEST(AsStringParameter : string);
begin
  ShowMessage(AsStringParameter);
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  MyProc : TcsMyProc;

begin
  MyProc := TEST;
  MyProc('HALLO');
end;