运行一外部程序后，可得到其主窗体及用getmenu得到总菜单的句柄，能不能根据菜单的句柄得到菜单的enabled属性？

Question

如果是控件，一般都有enabled属性来参考，现在只是得到了一个句柄，如何根据菜单的句两判断其是是否enabled呢？说明此外部程序工作时菜单有时会为灰色且不可操作，所以要捕捉此状态。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  bChecked: Boolean;
begin
  bChecked := TMenuItem(FindControl(Handle)).Checked;
end;
TMenuItem换成你需要的类名，Handle换成你找到的Handle

Answer 2

用  IsWindowEnabled  判斷下

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  bChecked: Boolean;
begin
  bChecked := TMenuItem(FindControl(Handle)).Enabled;
end;