im TabControl die Buttonfarbe ändern

[SilverMoonGirl]

Hi@ all

mit
 Tabcontrol1.Brush.Color:= clblack; ändere ich ja schonmal die Farbe, allerdings behalten die Buttons die "Windowsfarbe".

Ich bin der Meinung, dass man das so
TabControl1.Perform(Botschaft, 0, clBlack); könnte.

Weiß jemand, welche Botschaft man dazu braucht?

Vielen Dank

[Sharky]

Hai silbernes Mondmädchen.

Du könntest auch OwnerDraw := True einstellung dann die Tabs selber zeichnen:

Delphi-Quellcode:

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  Control.Canvas.Brush.Color := clGreen;
  Control.Canvas.FillRect(Rect);
  Control.Canvas.TextOut(rect.Left+2,Rect.Top+2,TabControl1.Tabs[TabIndex]);
end;

[SilverMoonGirl]

Super
vielen Dank Sharky

[toms]

Zitat von Sharky:

Hai silbernes Mondmädchen.

Du könntest auch OwnerDraw := True einstellung dann die Tabs selber zeichnen:

Delphi-Quellcode:

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  Control.Canvas.Brush.Color := clGreen;
  Control.Canvas.FillRect(Rect);
  Control.Canvas.TextOut(rect.Left+2,Rect.Top+2,TabControl1.Tabs[TabIndex]);
end;

Ist eine einfache Moeglichkeit, wobei das optisch nicht schön aussieht.

[SilverMoonGirl]

Zitat von toms:

Ist eine einfache Moeglichkeit, wobei das optisch nicht schön aussieht.

mag sein , aber erstmal reicht das

[Sharky]

Zitat von toms:

Ist eine einfache Moeglichkeit, wobei das optisch nicht schön aussieht.

Hai toms,

lasse mir doch das Vergügen dem silbernen Mond-Mädchen helfen zu können!