delphi popupmenu控件用法

Posted 2023-04-06

Delphi popupmenu控件的使用方法

添加一个popupmenu控件，双击该控件，在弹出的界面中设置好name以及caption属性，点击事件的做法就跟button一样了。最后选择需要有右键选择菜单的控件，popupmenu属性指向对应popupmenu，搞定。。。

参考技术A PopupMenu在编辑菜单的时候 各自按钮有各自的名称
例如 N1111 N2222 N3333
可以用enable属性 也可以用Visible属性
if 有图层 then
begin
N1111.Enabled:=true;
N2222.Enabled:=false;
N3333.Enabled:=true;
end
else
begin
N1111.Enabled:=false;
N2222.Enabled:=true;
N3333.Enabled:=false;
end; 参考技术B 右键菜单控件，和特定的窗体控件的popmenu属性关联就可以了 参考技术C 或拖一个popupmenu到窗体，或动态创建，把需要的控件popupmenu属性指向对应popupmenu即可

delphi TDbGrid 右键 PopupMenu 菜单只在有数据的地方弹出

最近用delphi做开发，用到了DbGrid控件，想在控件上点击鼠标右键弹出菜单

关联DbGrid的 Popupmenu 倒是可以实现，但是这样的效果是不管你在哪里单击鼠标右键

只要在DBGrid里面就会弹出菜单，我想只在数据区弹出，网上查了N多了资料，没有找到满意的

偶然间发现，当在DbGrid上单击鼠标右键的时候，当鼠标在数据区的时候不会触发 MouseDown事件

这样我就想用 MouseUp和MouseDown 区分鼠标是不是在数据区 ，然后弹出菜单

首先定义一个全局变量：

var ShowPopupMenu :Boolean = true; //默认情况下可以弹出菜单

然后定义MouseDown事件 当鼠标在非数据区的时候会触发事件，这时候将ShowPopMenu设为False

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->procedure TForm1.gridAccountMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbright) then
  begin
    ShowPopupMenu := False; 
  end;
end;

当鼠标弹起的时候在MouseUp事件里判断 ShowPopupMenu 是否为 true

代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->procedure TForm1.gridAccountMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbright) and ShowPopupMenuthen
  begin
    if (gridAccount.SelectedField <> nil) then  //如果有数据
    begin
      //弹出菜单即可
    end;
  end;
  showpop := True;
end;

这样就可以实现在数据区的时候弹出右键菜单了

注：由于俺是新手只能用这种笨方法实现了，如果哪位仁兄有更好的方法希望能告知 thx.