L
l0f
Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个程序(不知道它是用什么工具或是语言写出来的),它的界面上,好像有个不知道<br>是Label控件或是Edit控件(只读的),来显示的是一串数字(Integer型),<br>这个数字呢在不断的增长,但不是匀速的,速度是变化的(但增幅是恒定的为1)。<br>我想写一个程序,怎样在自己的程序中用个Edit控件,来显示那个程序的数字。<br>但要做到同步更新!!怎么办?<br>getwindowtext 抓不到LABEL的文字,也抓不到动态改变的EDIT中的文字,每次只抓到EDIT中的初始值,用UPDATEWINDOW也不起作用!!!!!<br>我现在找不到别的好方法了!!!<br>我的做法<br>procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;<br> Shift: TShiftState; X, Y: Integer);<br>begin<br>h:=windowfrompoint(mouse.CursorPos);//得到HWND<br>showmessage(inttostr(h));<br>timer1.Enabled:=true;<br>end;<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var p:array [0..255] of char;<br>begin<br>updatewindow(h);<br>getwindowtext(h,p,255);//取文字<br>edit1.Text:=strpas(p);<br>end;<br><br>