|
Registriert seit: 11. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Pointer auf Prozeduren
29. Mär 2005, 12:53
Richtig. Ein Fehler von mir.
Delphi-Quellcode:
type tproctype = procedure (Sender:TObject);
procedure a(Sender:TObject);
begin
ShowMessage('Klick');
end;
procedure TForm1.Button1Click(Sender: TObject);
var e:pointer;
m : TMethod;
begin
m.Code := @a;
m.Data := self;
OnClick := TNotifyEvent(m);
e := @a;
end;
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|