unigui web app之菜单

标签：.com   点击   procedure   菜单   .sh   ges   9.png   nbsp   窗体   

unigui web app之菜单

拖放TUnimMenu控件到窗体上。

side:=msleft 表示将在左边显示菜单。

菜单项属性

UnimMenu1.Visible := True;显示菜单

UnimMenu1.Visible :=false隐藏菜单

处理菜单项点击事件

procedure TMainmForm.UnimMenu1Click(Sender: TUnimMenuItem);
begin
Sender.Parent.Visible := False;
case Sender.MenuId of
0 : UnimForm2.ShowModal();
3 : Close;
end;
end;

unigui web app之菜单

标签：.com   点击   procedure   菜单   .sh   ges   9.png   nbsp   窗体   

原文地址：http://www.cnblogs.com/hnxxcxg/p/7181920.html