标签:begin 菜单 False delphi PopupMenu Visible iType end True
效果要求: 点击树形结构不同的行,弹出不一样的下拉菜单
窗体设计:
数据库设计:
实际效果:
核心代码:
procedure TForm1.PopupMenu1Popup(Sender: TObject); var iType: Integer; begin with FDQuery1 do begin if RecordCount = 0 then // 当没有数据时 begin m1.Visible := True; N1.Visible := False; N2.Visible := False; N3.Visible := False; Exit; end; iType := FieldByName('类型').AsInteger; if iType = 0 then // 公司 begin m1.Visible := True; N1.Visible := True; N2.Visible := True; N3.Visible := False; Exit; end; if iType = 1 then // 部门 begin m1.Visible := False; N1.Visible := False; N2.Visible := True; N3.Visible := True; Exit; end; end; end;
标签:begin,菜单,False,delphi,PopupMenu,Visible,iType,end,True 来源: https://www.cnblogs.com/yoooos/p/16610379.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。