5,931
社区成员
发帖
与我相关
我的任务
分享大家来看看我的这段代码的问题在哪里？
我的Form1上有一个按钮Button2，Caption为"Button2"我想的到它的句柄，可是得到却是0，这是为什么？请大家看看我下面的代码错在哪里？
var
Form1: TForm1;
main1:HWND;
button7:HWND;
a:HWND;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
main1:=FindWindow(nil,'Form1');
button7:= FindWindowEx(main1,main1,PChar('BUTTON'),PChar('Button2'));
ShowMessage(IntToStr(button7));
end;
var
Form1: TForm1;
main1:HWND;
button7:HWND;
a:HWND;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
main1:=FindWindow(nil,'Form1');
button7:= FindWindowEx(main1,main1,PChar('BUTTON'),PChar('Button2'));
ShowMessage(IntToStr(button7));
end;
...全文
请发表友善的回复…
发表回复
fatcatman 2002-02-16
- 打赏
- 举报
谢谢了，可以了。
torble 2002-02-16
- 打赏
- 举报
调试一下，单步执行～
fatcatman 2002-02-16
- 打赏
- 举报
还是不行！
li_zhifu 2002-02-16
- 打赏
- 举报
button7:= FindWindowEx(main1,HWND(nil),'TBUTTON','Button2');
//测试通过
//测试通过
li_zhifu 2002-02-16
- 打赏
- 举报
button7:= FindWindowEx(main1,main1,PChar('TBUTTON'),PChar('Button2'));
