|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Suche Menü Komponente ala Office 2010
6. Aug 2012, 15:12
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;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|