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;