OnClick-Ereignis ohne Prozedur

[jbg]

Zitat von d3g:

Ich habe es mit einem schmutzigen Trick versucht:

Möchtest du den "richtigen" schmutzigen Trick, der ohne AV auskommt, stehen:

Delphi-Quellcode:

function ProcToMethod(Proc: Pointer; FirstArgument: Pointer = nil): TMethod;
begin
  Result.Code := Proc;
  Result.Data := FirstArgument;
end;

procedure Proc(Control: TObject; Sender: TObject);
begin
  TForm(Control).WindowState := wsMaximized;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  OnClick := TNotifyEvent(ProcToMethod(@Proc, Self));
end;