Geht leider nicht, wird wohl doch eine eigene Prozedur werden.
Frage dann ist: Kann man in Delphi (in
TP ging's, wie gesagt) eine Prozedur in eine andere schachteln? So ein etwa:
Delphi-Quellcode:
procedure TForm1.MyProc(Sender: TObject);
var
bButton1: TButton;
begin
procedure b1Click(Sender: TObject);
begin
ShowMessage('Button1 geklickt!');
end;
bButton1 := { ... };
{ ... alles weitere ... }
bButton1.OnClick := b1Click(bButton1);
end;
Geht das und was müsste man an diesem Source anders machen?
Chris