Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Schumann,
25. Nov 2004
Hallo,
TabCaption:=TPageControl(Control).Pages.Caption;sollte die Lösung sein
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Schumann,
30. Jun 2003
Hallo Florian,
probier's mal damit:type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
procedure PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
procedure FormCreate(Sender: TObject);