[Gelöst] Items Eigenschaft zerstört eigene Komponente

[Sereby]

ich sollte länger als 2 tage googeln und testen -_-"

hab per wm_paint die breitenangaben aktualisieren lassen und auf einmal funzt es.

hab selber ne lösung gefunden!

Delphi-Quellcode:

TRolloutPanel = class(TPanel)
  private
    ..
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
    ..
  end;

procedure TRolloutPanel.WMPaint(var Msg: TWMPaint);
begin
  FHeaderBackground.Width := Self.Width + 6;
  FHeaderTitle.Width := FHeaderBackground.Width - 15;
  inherited;
end;