OnClick-Ereignis ohne Prozedur

[d3g]

Hab aber auch Unsinn geschrieben.

ShowMessage() ist keine procedure of object sondern eine einfache procedure. Zuviel Java ...

[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;

[CalganX]

Hm.. derzeit bin ich am Laptop, habe also den Source nicht, versuch das morgen mal...
Habe es nämlich jetzt auf die aufwendigere Methode gemacht, aber das ist wirklich nervig... Naja, mal sehen.

Chris