???给另一程序的edit付值(20分)

U

ufosxl

Unregistered / Unconfirmed
GUEST, unregistred user!
[:(]现有一程序窗体类为 Tft1<br>在另一程序运行代码如下:<br>procedure TForm1.Button5Click(Sender: TObject);<br>var<br>btn,hWnd:THandle;<br>begin<br>&nbsp;hWnd:=FindWindow('Tft1', nil);<br>&nbsp;BTN:=FindWindowEx(hWnd,0,'Tedit',nil);<br>&nbsp;SendMessage(BTN,WM_SETTEXT,0,integer(edit1.text)); <br>end;<br>这样只能给 tft1的一个edit付值,怎样二个或多个付值?<br><br>谢谢!!!!!!!!!!!!!!!!<br>[:(][:(]
 

木子

Unregistered / Unconfirmed
GUEST, unregistred user!
再来一次咯<br>BTN:=FindWindowEx(hWnd,BTN,'Tedit',nil);<br>SendMessage(BTN,WM_SETTEXT,0,integer(edit1.text));
 
R

redlegend_126_c

Unregistered / Unconfirmed
GUEST, unregistred user!
不要用findwindowex函数了 ,应该改用这个函数:<br>GetWindowRect函数,获得一个区域中的控件的句柄!<br>Declare Function GetWindowRect(ByVal hwnd as long,lpRECT as rect) as long<br>这是VB的声明,具体使用很简单了,自己试试看吧!
 
A

alac

Unregistered / Unconfirmed
GUEST, unregistred user!
同意木子<br>to redlegend_126_com:<br>GetWindowRect是得到窗口的所在区域,而不是窗口的句柄。<br>参数(in hwnd, out lprect)
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部