Kannst du mir das mal als konkretes Beispiel zeigen?
Hab mal in den Quelltext meien aktuellen Probleme geschrieben.
Delphi-Quellcode:
TWorkBegin = procedure(Sender: TObject; AWorkMode: TWorkMode;const AWorkCountMax: Integer) of object;
...
var idHttp: Tidhttp;
OnWorkbegin: TWorkbegin;
implementation
//falsche Definition der Methode, wie müsste die eigentlich aussehen?
procedure TWorkbegin(Sender: TObject;AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
showmessage('test');
end;
procedure MACHWAS;
begin
IdHttp:=TIdHttp.Create;
IdHttp.Onworkbegin:=Onworkbegin; //Fehler, dass beide Methoden unterschiedliche Parameter haben
//Lade hier was runter
IdHttp.Free;
end;
Vllt kann jemand das mal ja so korrigieren das das klappt. Habe vorher noch nicht mit Methodenzeigern gearbeitet.
Gruß KahPee
Edit: Eigentlich ist das was ich will glaube ich eine abgeleitete Klasse. Aber wie muss das dann mit der Methode aussehen? Die kann ich ja nicht einfach überschreiben..