unigui web app之菜单

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;