这问题300分~~~~~~~~~~~~~~~ ( 积分: 300 )

wwwvw · 2005-10-07

有一个外部程序，这个程序窗体的caption:='TestForm'， 里面有一个 RadioButton1 控件，默认状态是没有被选中（也就是 Checked:=false）. 怎么在我的程序里发消息使这个外部程序里 RadioButton1控件的 Checked:=true 这是一个关于消息句柄的问题，相信很多人都写过这个，要求给出详细代码并有注释 谢谢~~！

wwwvw · 2005-10-07

有一个外部程序，这个程序窗体的caption:='TestForm'， 里面有一个 RadioButton1 控件，默认状态是没有被选中（也就是 Checked:=false）. 怎么在我的程序里发消息使这个外部程序里 RadioButton1控件的 Checked:=true 这是一个关于消息句柄的问题，相信很多人都写过这个，要求给出详细代码并有注释 谢谢~~！

sbzldlb · 2005-10-07

procedure TCustomCheckBox.SetState(Value: TCheckBoxState); begin  if FState <> Value then  begin    FState := Value;    if HandleAllocated then      SendMessage(Handle, BM_SETCHECK, Integer(FState), 0);    if not ClicksDisabled then Click;  end; end; 这是CheckBox的原代码，你可以看看，应该对你有帮助的

leosoft · 2005-10-07

问题的关键是找到RadioButton1 控件的句柄，然后使用SendMessage(RadioButton1.Handle, BM_SETCHECK, BST_CHECKED, 0); 你可以用[句柄查看器]获得RadioButton1 控件的句柄！

wwwvw · 2005-10-07

是不是要先取得窗口的句柄才能进一步取得控件的句柄 leosoft 能具体写几段代码吗

0桁骀 · 2005-10-07

楼上的兄弟RadioButton1.Handle，好像是本程序吧 下面的代码测试过，没问题 procedure TForm2.Button1Click(Sender: TObject); var   H, HRad : THandle; begin   H := FindWindow(nil, PChar('TestForm'));   if H > 0 then begin       HRad := FindWindowEx(H, 0, PChar('TRadioButton'), PChar('RadioButton1'));       PostMessage(HRad, BM_SETCHECK, 1, 0);   end; end;

wwwvw · 2005-10-07

0桁骀你的代码运行后没效果 是不是哪里没考虑到啊

dey-999 · 2005-10-07

如果有多个这样的对象，能够指定哪一个接收吗。

cactus123456 · 2005-10-07

把       PostMessage(HRad, BM_SETCHECK, 1, 0); 换成 SendMessage(btnWnd,WM_LBUTTONDOWN,MK_LBUTTON,0); SendMessage(btnWnd,WM_LBUTTONUP,0,0); btnWnd就是hrad，RadioButton1 控件的句柄

vpanel · 2005-10-10

[red]不能用打死我！[/red] procedure TForm1.Button1Click(Sender: TObject); var   hForm, hBtn : THandle; begin   hForm := FindWindow(nil, 'TestForm');   if hForm > 0 then   begin       hBtn := FindWindowEx(hForm, 0, 'TRadioButton', 'RadioButton1');       PostMessage(hBtn, BM_CLICK, 1, 0);   end; end;

Corinth · 2005-10-10

呵呵，楼上的兄弟是不是说的太绝对了，你说的好像只限于Delphi与的吧，如果要查找的窗体是用其它语言写的呢？如VC，我想最好还是用Spy++看一下好

vpanel · 2005-10-11

呵呵,那你就让你的客户用SPY去查看吧.呵呵。不管是用什么语言写的，只要ClassName和WindowText写得正确，效果都一样。FindWindow和FindWindEx本来就是调用了API。懂了吧？

protossgffnxk · 2005-10-11

刚写的，不知道对你有没有用 //AWindow:窗口的标题 //HandleIndex:该窗口上第几个控件，想找到你的RadioButton,试着更换HandleIndex //调用代码示例：GetHandle('文件下载',4); function GetHandle(AWindow: string;  HandleIndex: integer): THandle; var  H: HWND;  HTemp, HTemp2: THandle;  I: integer; begin  I := 0;  H := FindWindow(nil, pchar(AWindow));  HTemp := 0;  HTemp2 := 0;  while I < HandleIndex do  begin    HTemp := FindWindowEx(H, Htemp2, nil, nil);    HTemp2 := HTemp;    I := I + 1;  end;  Result := HTemp; end;

这问题300分~~~~~~~~~~~~~~~ ( 积分: 300 )

wwwvw

Unregistered / Unconfirmed

wwwvw

Unregistered / Unconfirmed

sbzldlb

Unregistered / Unconfirmed

leosoft

Unregistered / Unconfirmed

wwwvw

Unregistered / Unconfirmed

0桁骀

Unregistered / Unconfirmed

wwwvw

Unregistered / Unconfirmed

dey-999

Unregistered / Unconfirmed

cactus123456

Unregistered / Unconfirmed

vpanel

Unregistered / Unconfirmed

Corinth

Unregistered / Unconfirmed

vpanel

Unregistered / Unconfirmed

protossgffnxk

Unregistered / Unconfirmed

Similar threads