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