5,388
社区成员
发帖
与我相关
我的任务
分享有空进来看看-句柄问题
兄弟姐妹好,呵呵,偶有一个小问题................
如果得到某一窗体中的按钮句柄,怎么判断它是否为灰色按钮哦,??
:)
...全文
请发表友善的回复…
发表回复
gxpang 2005-11-13
- 打赏
- 举报
呵呵,谢谢你们, 我已经搞定啦 !!!!!!!! ：）
sxf_zero 2005-11-13
- 打赏
- 举报
uses idGlobal;
...
var
c:Cardinal;
begin
c:=GetWindowLong(Button2.Handle,GWL_STYLE);
if IntToBin(c)[5]='1' then
ShowMessage('not enabled');
end
...
var
c:Cardinal;
begin
c:=GetWindowLong(Button2.Handle,GWL_STYLE);
if IntToBin(c)[5]='1' then
ShowMessage('not enabled');
end
柯本 2005-11-13
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
hdw,hdb:THandle;
en:BOOL;
begin
hdw:=FindWindow( nil,'TestForm'); //得到窗口句柄
if hdw=0 then
begin
ShowMessage('TestForm not find!');
exit;
end;
hdb:=FindWindowEx(hdw,0,nil,'Button1'); // //得到按钮句柄
if hdw=0 then
begin
ShowMessage('Button1 not find!');
exit;
end;
en:=isWindowEnabled(hdb); //是否enable(灰)
if en then
ShowMessage('Button1 Enabled!')
else
ShowMessage('Button1 Disabled!')
end;
var
hdw,hdb:THandle;
en:BOOL;
begin
hdw:=FindWindow( nil,'TestForm'); //得到窗口句柄
if hdw=0 then
begin
ShowMessage('TestForm not find!');
exit;
end;
hdb:=FindWindowEx(hdw,0,nil,'Button1'); // //得到按钮句柄
if hdw=0 then
begin
ShowMessage('Button1 not find!');
exit;
end;
en:=isWindowEnabled(hdb); //是否enable(灰)
if en then
ShowMessage('Button1 Enabled!')
else
ShowMessage('Button1 Disabled!')
end;
