Komponente will sich nicht neu zeichnen

[phlux]

Okay danke für den Hinweis dem werd ich mal nachgehen!!

[APP]

Hallo,
wieder mal ganz kurz:
Ich Denke Du müßtest in Deiner Komponente eigene TString Klasse ableiten und benutzen, dort die Methode TSring.Add "Overriden" (ist virtuell) und dort die TControlTabs.Paint Methode ausführen...

[Jens Schumann]

Hallo,
du musst im private Abschnitt deiner Komponente einen EventHandler für das OnChange Event von TStringList schreiben.
z.B.

Delphi-Quellcode:

private
  ...
  procedure ItemsChange(Sender : TObject);
  ...

Deinen constructor musst dann wie folgt erweitern:

Delphi-Quellcode:

constructor TControlTabs.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := [csCaptureMouse, csClickEvents, csOpaque, csReplicatable, csMenuEvents];
  Align := alTop;
  Height := 24;
  FButtonGap := 3;
  FButtonHeight := 20;
  FIndent := 3;
  FItems := TStringList.Create;

  FItems.OnChange:=ItemsChange; 

  fButtonColor := clSkyBlue;
  SetLength(FButtons, 0);
  FBackgroundColor := clSilver;
end;

ItemsChange könnte dann so aussehen:

Delphi-Quellcode:

procedure TControlTabs.ItemsChange(Sender : TObject);
begin
  Paint; oder Invalidate; aufrufen
end;

Jetzt wird ItemsChange aufgerufen, wenn Du ControlTabs1.Items.Add('Test'); verwendest.

[phlux]

Hi App!
Ich veroflge auch grade den gedanken die klasse TStrings abzuleiten und dann die Methode Add zu "overriden", jedoch weiß ich jetzt nicht wie ich dann auf die Methode Paint zurückgreifen soll (TStrings hat kein Owner oder Parent). Ich wollte mir jetzt damit behelfen dem constructor noch eine Komponente (in dem Falle ein TControlTabs) zu übergeben, damit ich auf die Methode Paint zurückgreifen kann. Oder gibt es eine andere Möglichkeit???

[edit]Oder ich versuchs nach der Methode von Jens, die scheint einfacher zu sein [/edit]

[phlux]

Danke euch beiden, es klappt