给动态创建的TREE和MAINMENU关联点击事件

最新推荐文章于 2021-03-08 22:41:56 发布

转载最新推荐文章于 2021-03-08 22:41:56 发布 · 58 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hnxxcxg/archive/2010/08/14/2940683.html

本文介绍了一种使用递归方法遍历菜单项的方法，并实现了菜单项点击时打开相应子窗体的功能。同时提供了几种常见菜单选项对应的子窗体处理逻辑。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用递归方法遍历MAINMENU的所有菜单项

procedure   TFormMain.BLMenu;
    procedure   GetItems(AItem:TMenuItem);
    var
        I:integer;
    begin
        AItem.OnClick := MenuTreeClick;      //菜单项关联点击事件
        for   I:=0   to   AItem.Count-1   do   begin
            GEtItems(AItem.Items[I]);
        end;
    end;
var
    I:integer;
begin
    for   I:=0   to   MainMenu1.Items.Count-1   do   begin
        GetItems(MainMenu1.Items.Items[I]);
    end;
end;

公用的点击事件处理方法

procedure TFormMain.MenuTreeClick(Sender: TObject);
begin
if Sender is TTreeView then     // 通过SENDER来判断是点击了菜单项还是树的节点
    todo(TTreeView(Sender).Selected.Text)
else if Sender is TMenuItem then
    todo(StripHotkey(TMenuItem(Sender).Caption));
end;

公用打开子窗体方法

procedure TFormMain.openForm(AFormClass: TFormClass; var aForm: TForm;
aOwner: TWinControl);
begin
if aOwner = nil then Exit;
if aForm = nil then
    aForm := AFormClass.Create(aOwner);
with aForm do
begin
    ManualDock(aOwner);
    WindowState := wsMaximized;
    Align := alClient;
    Show;
end;
end;

点击事件的处理方法

procedure TFormMain.todo(const aCaption: string);
begin
if Pos('数据字典', acaption) <> 0 then begin
    if ActiveExistTabsheet('数据字典') then Exit;
    openForm(TformDictionary, tform(formdictionary), GetTabSheet('数据字典'));
end else if Pos('系统菜单', aCaption) <> 0 then begin
    if ActiveExistTabsheet('系统菜单') then Exit;
    openForm(Tformmenu, tform(formMenu), GetTabSheet('系统菜单'));
end else if Pos('货品类别管理', aCaption) <> 0 then begin
    if ActiveExistTabsheet('货品类别管理') then Exit;
    openForm(TformCategory, tform(formCategory), GetTabSheet('货品类别管理'));
end else if Pos('操作员管理', aCaption) <> 0 then begin
    if ActiveExistTabsheet('操作员管理') then Exit;
    openForm(TFormOperator, tform(FormOperator), GetTabSheet('操作员管理'));
end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/archive/2010/08/14/2940683.html