Menü mit Delphi

[squetk]

Im OI zum PageControl ist das Property "Style" dafür verantwortlich - das muss z.B. auf tsFlatButtons gesetzt werden.

[LoW_FloW]

Die Schaltfläche mit den tabs will ich ausblenden und das alles mit Buttons usw. stuern...

[Daniel G]

Zitat von LoW_FloW:

Die Schaltfläche mit den tabs will ich ausblenden und das alles mit Buttons usw. stuern...

Also setzt du

TabSheet1.TabVisible := false Das wiederholst du für alle Seiten (TabSheet2, TabSheet3, usw etc. pp.)

easy, hm?

Zitat von LoW_FloW:

Hm...Tabsheet Tabvisible ist es schon ma net...dann dann geht das mit Tapindex nicht mehr...

Bitte was geht nicht mehr?

//Edit: Äh... Was machte denn die "3" bitte sehr in meinem Post? Hmm...

[LoW_FloW]

Zitat von Daniel G:

Also setzt du

TabSheet1.TabVisible := false Das wiederholst du für alle Seiten (TabSheet2, TabSheet3, usw etc. pp.)

easy, hm?

Wenn ich das so setzte, funktioniert dieser Befehl, mit dem man zwischen den TabSheets wechseln kann nicht mehr (PageControl1.TabIndex := XYZ

[LoW_FloW]

Keiner weiß die Antwort

[dahead]

Das geht auf jeden Fall.

Blende deine Tabs so zur Laufzeit aus (beim Formcreate o.ä.). Das hat den Vorteil, dass sie zur Designzeit noch sichtbar sind und du die daraufliegenden Komponenten usw. einfach bearbeiten kannst, ohne ständig die (nicht sichtbaren) Tabs auszuwählen.

Delphi-Quellcode:

procedure TMainForm.SetUpTabs;
var
  I: Integer;
begin
  for I := 0 to PC_Main.PageCount - 1 do
   begin
    PC_Main.Pages[I].TabVisible := False;
    //PC_Main.Pages[I].Caption    := xxx; // auch Setzen von andere Eigenschaften hier möglich.
    // wenn du bspw. ein Array der Tabs hast, kannst du hier auch eine eindeutige ID hinterlegen (bspw. im Tag Feld) Aber ich denke das wäre jetzt etwas übertrieben für dich, also lass es erstmal.
   end;
end;

Dann gibst du bspw. wenn du auf einen der Buttons in der Toolbar klickst folgenden Code ein:

 PC_Main.ActivePageIndex := 3;

[xaromz]

Hallo,

manchmal hilft die Hilfe weiter...

ActivePageIndex klingt doch vielversprechend.

Gruß
xaromz

//Edit: zu langsam...

[LoW_FloW]

Vielen dank euch beiden!!!!

ich bin so schlecht