Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.439 Beiträge
 
Delphi 2007 Professional
 
#1

THintwindow D2007 -> destructor AV

  Alt 18. Jan 2008, 17:08
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;
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat