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;