Auf TabControlreiter Zeichnen

Blackout · Beiträge: 64

hi leute,
wollte mal fragen ob es geht ein Button oder ein BMP auf ein TabControlreiter zu Zeichnen.

Ich würde gerne ein Schließen "X" ganz rechts auf jeden Reiter meines TabControls haben.

Danke schonmal im Vorraus

_________________
MfG Blackout

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo,

schau Dir doch mal die Events an die Dir die Komponente tTabControl bietet. Darunter befindet sich auch das OnDrawTab-Event.

Gruß
Tino

Blackout · Beiträge: 64

hehe so weit war ich auch schon :wink:

ich hab zur zeit nur das Problem den einzelnen Tabs Strings zuzuteilen

Das zeichnen funktioniert super:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin

  If TabIndex = 0 Then
    Form1.TabControl1.Canvas.Draw(Rect.Left+2, Rect.Top+2, Form1.Image1.Picture.Bitmap);   

end;

Aber wenn ich dem Tab einen String zuteile flimmert das immer

_________________
MfG Blackout

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme