【结贴】如何通过界面上的点击事件控制左边栏位置

lixy

你可以试验下，我理解这是你要的效果。

chenliang82

非常好，可以实现，但是如果我想在我的表单中创建Click事件，需要引用什么类吗？非常感谢

lixy

需要用5楼的方法，工作台不能直接访问到主界面。

chenliang82

发送消息，我不是很在行，能指点下吗？谢谢

lixy

http://bbs.justep.com/forum.php? ... 8%D2%E5%CF%FB%CF%A2

chenliang82

是不是和第二个例子类似？？？
把方法发送过去还是代码发送过去？
有点不明白！

lixy

3楼的代码放在主界面上，因为只有主界面才能访问到那些功能树控件。
主界面接收消息，如果有消息，触发上面的代码。

工作台是发送消息端

chenliang82

可不可以给个例子啊？真的不知道那些消息代码往哪里放？具体在程序中的什么位置！？

lixy

你找lxh，他做过消息的例子。
你只要在消息处理里做这个就行
//lixy
procedure TSTANDARDSTYLEMAINFORM.openmemu(Sender: TObject);
var
   i,j:integer;
begin
  for i:=0 to  tbFuncTree.Count-1 do
  begin
         if    tbFuncTree.Items.Caption= '客户关系' then
         begin
               tbFuncTree.Index:=i;
                for j:=0 to  FFuncNavBar.Groups.Count-1 do
                begin
                   if FFuncNavBar.Groups[j].Caption='产品管理'then
                      FFuncNavBar.Groups[j].Expanded := True;
                end;
         end;
  end;


end;

   TMyMessageHandler = class(TBizMessageHandler)
  private
    FOnMsgHandler: TNotifyEvent;
  public
   Iform: TForm ;
    procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean); override;
    property OnMsgHandler: TNotifyEvent read FOnMsgHandler write FOnMsgHandler;
  end;

chenliang82

谢谢，那结贴吧！