delphi查找文本框发送消息.doc

文档介绍：速达社区
查看完整版
速达社区››网络编程››如何取得另一程序中多个文本框的句柄和内容
页码: 1
如何取得另一程序中多个文本框的句柄和内容
- 陆亦砂2009-03-12 05:05
加入一应用程序中有三个文本框(TEdit控件),我首先通过FindWindow函数找到应用程序窗口句柄hWnd,之后调用
hEdt := FindWindowEx(hWnd, hEdt, PChar('TEdit'), nil);
只能得到一个文本框的句柄,这是指哪一个文本框的句柄?如果要分别得到三个文本框的句柄和内容,怎么实现?
如果有代码参考,感激不尽,各位指点指点。
- 九九一2009-03-12 05:05
procedure (Sender: TObject);
var
h,c:HWND;
cap:array[0..100] of char;
begin
h:=FindWindow(0,'有三个或多个Edit的窗口标题');
if h=0 then exit;
//注意原窗口的控件类名是TEdit还是Edit?这里以TEdit来说明问题:
C:=findwindowex(h,0,'TEdit',0);
while C <>0 do
begin
//showmessage('句柄:'+inttostr(c));
GetWindowText(c,cap,99);
showmessage(cap);//显示当前TEdit里面的数据。
C:=findwindowex(h,0,'TEdit',0);//查找下一个
end;
- 洛雨樱2009-03-12 05:05
死循环。。。
- 布泽2009-03-12 05:05
写错了一点点,重写:
procedure (Sender: TObject);
var
h,c:HWND;
cap:array[0..100] of char;
begin
h:=FindWindow(0,'有三个或多个Edit的窗口标题');
if h=0 then exit;
//注意原窗口的控件类名是TEdit还是Edit?这里以TEdit来说明问题:
C:=findwindowex(h,0,'TEdit',0);
while C <> 0 do
begin
//showmessage('句柄:'+inttostr(c));
GetWindowText(c,cap,99);
showmessage(cap);//显示当前TEdit里面的数据。
C:=findwindowex(h,c,'TEdit',0);//查找下一个
end;
- 完美女人2009-03-12 05:05
如一个程序窗口上有4个Edit类控件
var
hEdit1,hEdit2,hEdit3,hEdit4:HWND;//全局变量
function EnumChildWindowsProc(hChild: HWnd): Boolean; stdcall;//回调函数
var
szClassName: array[0..255] of char;
begin
Result := True;