用下面的方面枚举窗体中的所有子窗体,然后用mouse_event模拟鼠标点击:
因为Edit没有caption,所以你可能要先试一下需要的是哪个Edit.给分?$_*
不清楚你要做什么,如果要找主窗体可以用EnumWindowsProc和EnumWindows。
function EnumChlidProc(AHWnd: HWnd;
LPARAM: lParam): boolean; stdcall;
var
WndCaption: array[0..254] of char;
WndClassName: array[0..254] of char;
begin
GetWindowText(AHWnd, @WndCaption, 254);
GetClassName(AHWnd, @WndClassName, 254);
with Form1.Memo1.Lines do
begin
Add(StrPas(WndCaption));
Add(StrPas(WndClassName));
add('HWND:'+inttostr(ahwnd)); //获得句柄
Add('-------');
end;
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
H:THandle;
begin
H:=FindWindow('classname','caption');//替换此句为你要的.
EnumChildWindows(H,@EnumChlidProc, 0); //call back function 调用
end;