Zeiger einer Funktion übergeben

[Anonymos]

Hallo alle zusammen

Also als erstes mal, falls jemand auf die Idee kommt die Suche zu benutzen und nach meinem Titel zu suchen,
den muss ich lieder enttäuschen.
JA ich habe was gefunden :-), des aber leider nicht funktioniert hat :-(

http://www.delphipraxis.net/internal...er+%FCbergeben

Mein Problem ist folgendes:

Ich bin grad dabei mir eine Komponente zu schreiben, be der ich eine Unterklasse ertellen möchte (Sozusagen, ein "Lable", dass ich in meine Kompo integrieren möchte)

Wenn ich eine Eigenschaft meiner Kompo verändere rufe ich in den zugehörigen Funktionen jeweils die Funktion "Refresh;" auf, um die Komponente neu zu zeichnen.
Das ganze wollte ich jetz auch für die Unterklasse machen.
Ich hab mir gedacht, ich könnte der Unterklasse einfach den Zeiger auf eben diese Refreshprozedur übergeben und dann einfach diesen aufrufen.

Code:

TRefresh = procedure();
TTachoLable = class(TPersistent)
  constructor Create(OwnerRefresh: TRefresh);
private
  fOwnerRefresh   : TRefresh;
...
end;
TTacho = class(TGraphicControl)       
private
  fTachoLable     : TTachoLable;
...
end;

...

constructor TTachoLable.Create(OwnerRefresh: TRefresh);
begin
  inherited Create;  
  fOwnerRefresh := OwnerRefresh; 
end;

constructor TTacho.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fTachoLable := TTachoLable.Create(@Refresh);
end;

Wenn ich versuche den Code so zu kompilieren bekomme ich folgende Fehlermeldung:
[In der entsprechenden Zeile: "fTachoLable := TTachoLable.Create(@Refresh);" : Variable erforderlich

Ich bin mir eigentlich recht sicher, dass hier drin kein Falscher Quellcode am Ende noch stehen bleibt, also was hab ich hier falsch gemacht? Ich kann mir des im mom leider nich mehr selbst erklären.

mfg

[Apollonius]

Ich rate mal ins Blaue hinein, dass TRefresh als procedure of object definiert werden sollte und außerdem das @ nicht dorthin gehört.

[Anonymos]

Hey Danke :dancer:
Funzt super,

Aber wo liegt denn da jetz genau der Unterschied drin?
Bzw. Was is denn dieses procedure of object ???

mfg

[quendolineDD]

In C# wird es Delegate genannt. Es ist ein Verweis auf eine Prozedur. So wird das nunmal in Delphi deklariert ;)

[Anonymos]

OK,
Und wiedermal was Neues gelernt !!

Nochmal danke :hello:

mfg

[Apollonius]

Nicht ganz. Ohne das of object kannst du nur eine freie Routine übergeben. Mit of object muss es eine Methode sein. Da Refresh aber als Methode des Controls definiert ist, brauchst du einen Methodenzeiger.