Ribbon hide (van Bilsen Lösung) und Menu zeigen

[FrankJ28]

Hallo,
hat jemand die van Bilsen-Lösung (Tutorial) im Einsatz und hat das Umschalten zwischen Ribbon-Steuerung und klassischem Menue lösen können? Ribbon.visible=false versteckt zwar das Ribbon, aber das vorher zugewiesene MeinMenue ist leider nicht sichtbar.
Danke und ciao
Frank

[himitsu]

Du könntest die Ribbon-Komponente freigeben (Free).

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
begin
  Ribbon1.Free;
  Self.RecreateWnd;
end;

[FrankJ28]

Hallo,
ich habe die Variante mit dem abgeleiteten MainForm gewählt.

Code:

TMainForm = class(TUIRibbonForm)

Da ist free nicht so gut

Ciao
Frank

[himitsu]

Tja, wenn die Form direkt als RibbonForm verwendet wird, dann würde ich sagen, daß du das Ribbon dann besser nicht abschalten solltest.

[FrankJ28]

Hallo,
ich habe das jetzt folgendermaßen gelöst:

Delphi-Quellcode:

 MainForm.Ribbon.Visible:=false;
 MainForm.Ribbon.Height:=0;
 Self.RecreateWnd;
 MainForm.ToolBar1.Visible:=true;
 MainForm.MainMenu1:=MainMenu1;

Dazu musste das Property height allerdings noch schreibbar gemacht werden. Ohne die Höhe 0 bleibt noch ein Restfragment von 30 Pixel übrig.

Das jemand eine Ahnung wie man ein Tab programmtechnisch aktivieren kann? Deaktivieren über die ApplicationModes klappt soweit, bis auf die Tatsache, dass es wohl mindestens ein Tab mit Modes=all geben muss, sonst wird beim Start kein Inhalt gezeigt. Nun möchte ich via Programm ein Tab aktivieren.

Danke und ciao
Frank

[himitsu]

Zitat von FrankJ28:

Delphi-Quellcode:

MainForm.Ribbon.Visible:=false;
MainForm.Ribbon.Height:=0;
Self.RecreateWnd;
MainForm.ToolBar1.Visible:=true;
MainForm.MainMenu1:=MainMenu1;

Der Code steht in einer Methode von TMainForm?

Dann kommt es auf Folgendes hinus.

Delphi-Quellcode:

Self.Ribbon.Visible:=false;
Self.Ribbon.Height:=0;
Self.RecreateWnd;
Self.ToolBar1.Visible:=true;
Self.MainMenu1:=Self.MainMenu1;  // ???

PS: Von innerhalb einer Komponente/Klasse (hier TMainForm) besser niemals auf die externe globale Variable zugreifen.

[FrankJ28]

Hi,
ja, hast ja Recht . Hier ist glücklicherweise MainForm=self.
Ciao
Frank