针对想点中其它软件中的某个控件的问题
var
Pmouse: TPoint;
hClientWindow,hWindow:Thandle;
begin
//enable 一个控件
GetCursorPos(pMouse);
hWindow:=WindowFromPoint(pMouse);
Windows.ScreenToClient(hWindow,pMouse);
hClientWindow:=ChildWindowFromPoint(hWindow,pMouse);
if hClientWindow<>0 then
hWindow:=hClientWindow;
EnableWindow(hWindow,true);
SendMessage(hWindow, BM_SETCHECK, 1, 0);
//EnableWindow(hWindow,false);
//SendMessage(Handle, BM_SETCHECK, Integer(Checked), 0);
还有sendMessage 改变dropdown
PostMessage(Cmb.Handle, CB_SHOWDROPDOWN, 1, 0); // 设定为下拉方式
PostMessage(Cmb.Handle, CB_SETCURSEL, 1, 0); // 指定当前下标为1