Delphi菜单OnClick确认

Question

在Delphi菜单中需要确认OnClick，例如：显示列表是或否？

  object MenuShowList1: TMenuItem
    Caption = 'Show Listing'
    OnClick = ShowListButtonClick
  end

Answer 1

你的意思是用户必须确认他/她确实想在点击菜单项时看到列表吗？在这种情况下，您将该检查包含在您的处理程序中，即

uses Dialogs;

procedure Form1.ShowListButtonClick(Sender: TObject)
begin
  if MessageDlg('Show Listing?',mtConfirmation, [mbYes,mbNo], 0) <> mtYes then Exit;
  // show listing
  ...
end;