动态创建popupmenu

最新推荐文章于 2021-05-25 16:03:41 发布

easyboot

最新推荐文章于 2021-05-25 16:03:41 发布

阅读量2.8k

点赞数

分类专栏： Delphi 文章标签： integer button

本文链接：https://blog.csdn.net/easyboot/article/details/7360793

版权

Delphi 专栏收录该内容

54 篇文章 2 订阅

订阅专栏

 定义：mmiTemp: array[1..8] of TMenuItem;

 创建popupmenu                                                                                                                                               procedure TfrmParameter.CreatePopupMenu();
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    if mmiTemp[i] = nil then
    begin
      mmiTemp[i] := TMenuItem.Create(nil);
      mmiTemp[i].Caption := '发送到机台 ' + IntToStr(i);
      mmiTemp[i].Tag := i;
      //mmiTemp[i].
      mmiTemp[i].OnClick := OcbPopupHandler;
      pmUpdateIpAndMac.Items.Add(mmiTemp[i]);
    end;
  end;
end;

事件：procedure TfrmParameter.OcbPopupHandler(Sender: TObject);
var
  Position: integer;
begin
  Position := (sender as TMenuitem).Tag;
  UpdateIpAndMacByPopupMenu(Position);
end;


procedure TfrmParameter.UpdateIpAndMacByPopupMenu(Position: integer);
 
begin
 
 showmessage('Test');
end;

限制popupmenu弹出范围

procedure TfrmParameter.StrGrdIportListMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  col, row: integer;
begin


  StrGrdIportList.MouseToCell(x, y, col, row);
  Label1.Caption := Format('x:%d,y:%d  row:%d,col: %d mouse X%d', [x, y, row, col, Mouse.CursorPos.X]);  
  if ((Row = 0) or (Row = -1)) then
    pmUpdateIpAndMac.AutoPopup := False
  else
    pmUpdateIpAndMac.AutoPopup := True;


end;