看看这段代码:(假设NowHwnd是你要查找的Tedit的句柄)function GetCaption(NowHwnd:Hwnd):String;
var
buf:Array of Char;
B:array [0..254] of char;
t:String;
L,i:Integer;
begin
t:='';
GetClassName(NowHwnd,@B,255);
if B= 'TEdit' then
begin
L:=SendMessage(NowHwnd,WM_GETTEXTLENGTH,0,0);
SetLength(buf,L+1);
SendMessage(NowHwnd,WM_GETTEXT,L+1,LPARAM(buf));
for i:=0 to Length(buf) do t:=t+buf[i];
end;
GetCaption:=t;
end;
var
buf:Array of Char;
B:array [0..254] of char;
t:String;
L,i:Integer;
begin
t:='';
GetClassName(NowHwnd,@B,255);
if B= 'TEdit' then
begin
L:=SendMessage(NowHwnd,WM_GETTEXTLENGTH,0,0);
SetLength(buf,L+1);
SendMessage(NowHwnd,WM_GETTEXT,L+1,LPARAM(buf));
for i:=0 to Length(buf) do t:=t+buf[i];
end;
GetCaption:=t;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货