Codejock Developer Community : Creating a Ribbon in Delphi

Creating a Ribbon in Delphi : Do You really need Frame object...the...

Mon, 02 Jul 2007 10:37:06 +0000

Author: Dev69
Subject: 7453
Posted: 02 July 2007 at 10:37am

Do You really need Frame object...

the following code works perfectly

FCommandBars := TCommandBars.CreateParented(FFormOwner.Handle);
FRibbon := FCommandBars.AddRibbonBar(FFormOwner.Name)

regards

Creating a Ribbon in Delphi : Hi, try to move CommadnBarsFrame...

Tue, 26 Jun 2007 15:36:44 +0000

Author: Oleg
Subject: 7453
Posted: 26 June 2007 at 3:36pm

Hi,

try to move CommadnBarsFrame to form - do not create dynamically.

Creating a Ribbon in Delphi : How do you create a Ribbon in...

Tue, 26 Jun 2007 12:06:26 +0000

Author: ggibaut
Subject: 7453
Posted: 26 June 2007 at 12:06pm

How do you create a Ribbon in Delphi 7?

I imported the ActiveX using Delphi Wizard.
A sample sketch of my code is the following:

procedure TForm1.FormCreate(Sender: TObject);
var
CommandBarsFrame: TCommandBarsFrame;
Ribbon: IRibbonBar;
begin
CommandBarsFrame := TCommandBarsFrame.CreateParented(Self.Handle);
CommandBarsFrame.EnableOffice2007Frame(True);
CommandBarsFrame.VisualTheme := xtpThemeRibbon;
Ribbon := CommandBarsFrame.AddRibbonBar(Widestring('Sample'));
Assert(Ribbon <> nil); //the Ribbon is always nil
end;

What i�m missing?

Thanks in advance