BorlandTalk.com

ChowVT · Guest

how to *programlly* add a action to ActionToolbar with ActionManager?

for it, i did not find any examples in delphi's help and web sites.. etc.
( with delphi, i always feel that delphi(borland)' help is a horror
as for component using examples. is my feeling wrong? )

i wrote the following:
{*******************************************}
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, ToolWin, ActnMan, ActnCtrls, ActnMenus,
XPStyleActnCtrls, ActnList, StdCtrls, Buttons;

type
TForm1 = class(TForm)
procedure BitBtn1Click(Sender: TObject);
private
ActionToolBar1: TActionToolBar;
ActionManager1: TActionManager;
public
constructor Create(AOwner: TComponent); override;
procedure AddAction;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

constructor TForm1.Create(AOwner: TComponent);
begin
inherited;
ActionManager1:= TActionManager.Create(Self);
ActionToolBar1:= TActionToolBar.Create(Self);
ActionToolBar1.ActionManager:= ActionManager1;
end;

procedure TForm1.AddAction;
// var
// vAction: TAction;
// begin
// vAction:= TAction.Create(Self);
// vAction.Name:= 'Item1';
// vAction.Caption:= 'Item1';

{ ? }

end;

end.
{*******************************************}

in '?', what do i do?

thank for your helps.

Steve Trefethen (Borland) · Guest

Ignacio Vazquez · Guest

"ChowVT" <Chowvt (AT) yahoo (DOT) com.spam.no> wrote