Suche Menü Komponente ala Office 2010

[Andidreas]

An dieser Stelle erst mal Vielen Dank für die Posts und Tipps.
Ich werd mal das ganze mit der Delphi Komponente Versuchen (die Chefs freuts ja am meisten wenns nix kostet )

[Andidreas]

Ich bin gerade auf mein erstes Problem gestoßen...

Bei der TRibbon Komponente kann man die Tab Pages nicht verstecken, der folgende Source bewirkt null:

TRibbonPage1.Visible := False Ich kann zwar eine Page Disablen, aber visuell wird das auch nicht angezeigt (normalerweise werden Disablede Objekete gräulich dargestellt... bei der TRibbon Komponente werden Sie ganz normal angezeigt)

Sind das Bugs, oder mach ich was Falsch?

Funktioniert das bei TMS oder DevExpress besser?

[franktron]

Zitat von Andidreas:

TRibbonPage1.Visible := False

Ist das ein Schreibfehler oder müsste das nicht RibbonPage1.Visible := False heissen.

[Andidreas]

Zitat von franktron:

Zitat von Andidreas:

TRibbonPage1.Visible := False

Ist das ein Schreibfehler oder müsste das nicht RibbonPage1.Visible := False heissen.

Ja war ein Schreibfehler...


So würds gehn:
RibbonPage1.Destroy Aber naja das ist nicht die feine Englische Art...

[himitsu]

Delphi-Quellcode:

RibbonPage2.Ribbon := nil;  // weg?

RibbonPage2.Ribbon := Ribbon1;  // da?

Visible ist nicht implementiert. (jemand könnte mal die Ribbon-API danach durchsuchen und dann SetVisible entsprechend überschreiben)

[Andidreas]

Zitat von himitsu:

Delphi-Quellcode:

RibbonPage2.Ribbon := nil;  // weg?

RibbonPage2.Ribbon := Ribbon1;  // da?

Visible ist nicht implementiert. (jemand könnte mal die Ribbon-API danach durchsuchen und dann SetVisible entsprechend überschreiben)

Also dein Source bewirkt bei mir nichts...

Ich krieg die Ribbon Page nur über Destroy & Free weg:

Delphi-Quellcode:

RibbonPage1.destroy;
RibbonPage1.Free;

[Bummi]

bei TRibbon gibt es AFAIK keine saubere Methode das zu handeln, devExpress bietet visible und OnTabChanging, TMS wenn ich mich recht erinnere mindestens visible

[Bummi]

ein bisschen faken geht schon, allerdings werden bei u.g. alle Ribbons > 2 ebenfalls ausgeblendet.

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
begin

 Ribbon1.ActivePage := RibbonPage2;
 RibbonPage2.Parent := nil;
 try
   Ribbon1.ActivePage := RibbonPage1;
 except

 end;

end;

procedure TForm5.Button2Click(Sender: TObject);
begin

 RibbonPage2.Parent := Ribbon1;
  Ribbon1.ActivePage := RibbonPage2;
end;