【结贴】ToolBar**

vagrant

请问一下ToolBar下怎样构造ToolButton?比如：通过ToolButton的事件调用窗体？

zfang

最简单的就是
ToolButton1Click事件中去写调用代码就可以了。

vagrant

我知道可以这样去调用，但是OA里是通过ToolBar等去实现的，所以我想了解关于ToolBar等的一些知识

zfang

控件actionlist，然后添加action，在action的Action1Execute事件中写逻辑，然后toobutton引用该action
actionlist可以加普通的action（需要自己来做代码逻辑），也可以加标准的action（平台里底层已经实现，比如BizDataSetAction1）

这个培训的时候不是说过的吗？

vagrant

不懂，怎么添加action啊

zfang

更详细的请看用户手册第10章（576页后）
如果还没有看明白的话，那只能求助于网上找一下delphi的相关资料了

vagrant

actionlist看明白拉，现在一个功能下有两个窗体，我用主窗体中的按钮去调用次窗体，但代码没有任何反映，代码如下：
procedure TZCT.BitBtn1Click(Sender: TObject);
var
  Iform : TSHCT;
begin
  Inherited;
  Iform := TSHCT.Create(self.Context );
  try
    Iform.ShowModal ;
  finally
    Iform.Free ;
  end;
end;

jiahaiming

没反应是什么意思啊？
代码编译了吗？

jiahaiming

可以跟踪调试一下

vagrant

刚产生了一个错误，现找到错误点了，可以结贴