THintwindow D2007 -> destructor AV

[Gruber_Hans_12345]

Hallo, ich bekomme beim Destructor des THintWindow seit D2007 einen Fehler, und zwar TCustomControl.Destroy, da kann er den FCanvas nicht freigeben.

Ich habe auf meinem Formular meherer Komponenten, die unterschiedliche Hintwindows verwenden und diese manuell erzeugen (es muß manuelle sein), daher verwende ich einfach ein THintWindow erzeuge dieses beim Start, und zeige es dann dynamisch an.

Unter D6 ging alles Problemlos, bei D2007, hagelts nun diese AV, die man noch dazu sehr sehr schwer findet.

Delphi-Quellcode:

    TTerminHint = class(THintWindow)
    public
        constructor Create(AOwner: TComponent); override;
        destructor Destroy; override;
        procedure ReleaseHint;
        procedure ShowHintAt(At : TPoint; aText : string);
    protected
        procedure Paint; override;
    end;


procedure TTimeView.InitControls;
begin
    TH                  := TTerminHint.Create(nil);
    TH.Parent           := self;
    .... 
end;

destructor TTimeView.Destroy;
begin
    TH.Free;  // <<< hier gibts die AV, wenn ich den Owner setze, und nicht manuell freigebe, dann gibts die AV im inherited des destructor
    inherited;
end;


constructor TTerminHint.Create(AOwner: TComponent);
begin
    inherited;
    //FDoubleBuffered := TRUE;
end;

destructor TTerminHint.Destroy;
begin
    inherited;
end; 



destructor TCustomControl.Destroy;
begin
  FCanvas.Free;         <<< hier gibt es dann die exception
  inherited Destroy;
end;

[mkinzler]

Wie sieht THintWindow aus?

[hanspeter]

Ich habe einen ähnlichen Fehler und vermute, das das ein Bug in D2007 ist, da der Fehler mit früheren Versionen nicht auftritt.
Irgendwie ist Owner und Parent durcheinander.
Der Fehler tritt auf, wenn zum Zeitpunkt Free ein einmal zugewiesenes Parent nicht mehr existiert.
Versuch doch, wenn möglich, dort wo Du Parent zuweist, am Ende auch wieder Parent := nil zuzuweisen.

Gruß
Peter

[Gruber_Hans_12345]

Zitat:

Zitat von mkinzler

Wie sieht THintWindow aus?

THintWindow ist eine Delphi interne Klasse ... in Cotnrols.pas

Zitat:

Zitat von hanspeter

Ich habe einen ähnlichen Fehler und vermute, das das ein Bug in D2007 ist, da der Fehler mit früheren Versionen nicht auftritt.
Irgendwie ist Owner und Parent durcheinander.
Der Fehler tritt auf, wenn zum Zeitpunkt Free ein einmal zugewiesenes Parent nicht mehr existiert.
Versuch doch, wenn möglich, dort wo Du Parent zuweist, am Ende auch wieder Parent := nil zuzuweisen.

Gruß
Peter

werde ich mal probieren, meinst du vor dem Freigeben des THintWindow (Also im destructor) den Parent auf nil zu setzen

als so funktioniert es auch nicht

Delphi-Quellcode:

destructor TTimeView.Destroy;
begin
    TH.Parent   := nil;
    TH.Free;
    ....

im moment lasse ich den TH einfach als Speicher/Ressourcenleck über ... besser als jedesmal eine AV