constructor THeaderControl.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  ControlStyle := [];

  Align := alTop;

  Height := 17;

  FSections := THeaderSections.Create(Self);

  FCanvas := TControlCanvas.Create;

  TControlCanvas(FCanvas).Control := Self;

  FImageChangeLink := TChangeLink.Create;

  FImageChangeLink.OnChange := ImageListChange;

  FFullDrag := True;

  FDragReorder := False;

  FSectionDragged := False;

  FUpdatingSectionOrder := False;

  FSectionStream := nil;

end;

destructor THeaderControl.Destroy;

begin

  FCanvas.Free;

  FSections.Free;

  if Assigned(FSectionStream) then FSectionStream.Free;

  inherited Destroy;

end;

Съдържаниет е скрито
Влезте за да го видите

Във всички останали обекти в ComCtrls.pas, където се използва като поле има FImageChangeLink.Free в деструктора. В THeaderControl.Destroy може би е пропуснато. Ако наистина има ликаж, просто го добави. Остава проблема, ако се компилира на друго делфи или си преинсталираш твоето.

Съдържаниет е скрито
Влезте за да го видите

Може да пробваш да си включиш в проекта оправена версия на ComCtrls.pas и да си я влачиш със сорса. Стига да се компилира все на делфи 5 не би трябвало да има проблеми. Аз поне така съм си решил проблема с някои бъгове на ADO-то

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите