PageControl und Buttons optimal zeichnen

[Privateer3000]

Ok Danke für den Tipp!

[Privateer3000]

Ich habe das mal getestet und bin dabei auf ein Problem gestoßen.
Die einzelnen Tabs eines Tabcontrol bekommen nur Ihren Tabindex zur
Identifizierung, aber nicht wie Pages zB. Name.
Da aber aus der DB ausgelesen wird welcher Button auf einen bestimmten
Tab angezeigt werden soll ist das schwierig ohne einen Bezug.
Der Tabindex hat glaube ich nur Lese-Eigenschaft.
Zur Verdeutlichung:
DB-Buttonpanel: ID Panelnr Tab-Beschriftung
DB-Buttons: ID Panelnr Buttonbeschriftung Int(für Tag)

Andernfalls muss die DB umgestrickt werden.

[uligerhardt]

Zitat von Privateer3000:

Ich habe das mal getestet und bin dabei auf ein Problem gestoßen.
Die einzelnen Tabs eines Tabcontrol bekommen nur Ihren Tabindex zur
Identifizierung, aber nicht wie Pages zB. Name.
Da aber aus der DB ausgelesen wird welcher Button auf einen bestimmten
Tab angezeigt werden soll ist das schwierig ohne einen Bezug.
Der Tabindex hat glaube ich nur Lese-Eigenschaft.

Da irrst du.

Zitat von Delphi-Hilfe:

property TabIndex: Integer read GetTabIndex write SetTabIndex;

Du kannst entweder in der DB einfach den TabIndex wegspeichern oder über die Tab-Caption gehen (ungetestet):

Delphi-Quellcode:

  for i := 0 to Pred(TabControl.Tabs.Count) do
    if TabControl.Tabs[i] = 'TabNameAusDB' then
      TabControl.TabIndex := i;

Wenn du schon die Namen der TabSheets eines PageControls (sowas wie 'TabSheet1') in der DB stehen hast, kannst du auch selbigen lesen und aus einer Umsetztabelle (z.B. eine TStringList) den TabIndex holen.