如何实现自动填写edit框数据？ ( 积分: 50 )

reckychen · 2005-01-11

利用特定的数据资料格式，读取数据自动填入相应的edit框。 如果单模拟键盘输入又很容易出错，不知各位有何高见？

reckychen · 2005-01-11

利用特定的数据资料格式，读取数据自动填入相应的edit框。 如果单模拟键盘输入又很容易出错，不知各位有何高见？

陌生 · 2005-01-11

你所讲的问题好象不很清楚，可以在详细一点么？

hearwind · 2005-01-11

直接对Edit.Text赋值不就行了吗

weiliu · 2005-01-11

用KEYBD_EVENT/SENDMESSAGE/POSTMESSAGE直接发送字符到文本框上就行了。

3h · 2005-01-12

要说的大家都说了. 只需要分析数据后直接给text属性赋值就没问题吧

reckychen · 2005-01-13

To：hearwind 因为不是同一个软件，怎么可以直接到Edit.Text赋值？！ To：weiliu 你所说的方法具体怎么操作？再说明一下：由自己编写的是加载格式程序；被加载数据的程序不是自己编写。

lcyandzj · 2005-01-13

先找到加载格式程序中编辑框的句柄 然后用SENDMESSAGE语句

深蓝色的鱼 · 2005-01-13

找到要赋值的EDIT的句柄,然后用SENDMESSAGE发消息给它就可以了.

missinwind · 2005-01-13

对，用SENDMESSAGE，具体方法查帮助吧。

jack_ken · 2005-01-13

什么，什么意思？ 是不是向其他窗体发送数据啊； var  FH:THandle;  ButH:THandle;  Buf:Array[0..255] of Char; begin  FH:=FindWindow(nil,'登录信息');  if FH&lt;&gt;0 then  begin    ButH := FindWindowEx(FH,0,'Edit',nil);    if ButH&lt;&gt;0 then    SendMessage(ButH,WM_SETTEXT,0,Integer(pchar('ddd')));  end; end;

reckychen · 2005-01-14

应该说是向其它程序的edit框发送数据。大体的意思我明白，不过怎样取得该程序与所要传数据的edit框的句柄啊？帮助都是英文的[

]

fei_l · 2005-01-15

找到EDIT的句柄，向它发消息

reckychen · 2005-01-16

jack_ken: 窗体中有那么多个edit框，怎么才可以获得我所需要的框值呢？

minglove · 2005-01-22

var  MainHandle: THandle; begin  MainHandle:= findwindow(nil,'Caption');// 获得句柄。  //findwindowex(Phandle,0,nil,'控件 Handle') 获得控件句柄。  if MainHandle &lt;&gt; 0 then    windows.enumchildwindows(MainHandle,@enumchildHandle,0); end; function enumchildHandle(hwnd:hwnd,lparam:lparam):boolean; var  ClassName: array[0..255] of char;  MyHandle: array[0..255] of THandle;  i:integer;  MyStr

char;//自己输入设置成参数。 begin  i:= 0;  getmem(MyStr,255);  MyStr:='11111';  getmem(@ClassName,255);  GetClassName(hwnd,@ClassName,255);  if ClassName = 'Edit' then  //针对多个edit  begin     MyHandle:= hwnd;     SendMessage(MyHandle[具体的edit对应的i],wm_settext,0,integer(MyStr));  end;    result:= true;//千万别忘了写这句。 end;

reckychen · 2005-06-25

可否有更直接一点的例子说明呢？？

reckychen · 2005-06-25

曾经试过用以下方法可以实现，但很麻烦，不可以直接传到想要的框中，必须一个一个轮着，而且是必须一层一层获取句柄。谁还有更好的方法直接点？ ==================================================================================== procedure TForm1.btn1Click(Sender: TObject); begin  FH:=FindWindow('tfrmdoccust',Nil);  if FH<>0 then  lbl1.Caption:='获取窗口句柄成功！'  else  lbl1.Caption:='获取窗口句柄失败！' end; procedure TForm1.btn2Click(Sender: TObject); begin   ButH := FindWindowEx(FH,0,'tpagecontrol',nil);    if ButH<>0 then  lbl1.Caption:='获取tpagecontrol句柄成功！'  else  lbl1.Caption:='获取tpagecontrol句柄失败！' end; procedure TForm1.btn3Click(Sender: TObject); begin   But1 := FindWindowEx(ButH,0,'ttabsheet',nil);    if But1<>0 then  lbl1.Caption:='获取ttabsheet句柄成功！'  else  lbl1.Caption:='获取ttabsheet句柄失败！' end; procedure TForm1.btn4Click(Sender: TObject); begin   But2 := FindWindowEx(But1,HWND(0),'tdbedit',nil);    if But2<>0 then  lbl1.Caption:='获取tdbedit句柄成功！'  else  lbl1.Caption:='获取tdbedit句柄失败！' end; procedure TForm1.btn5Click(Sender: TObject); begin  But2:=GetNextWindow(But2,GW_HWNDNEXT);  lbl1.Caption:=IntToStr(but2);    SendMessage(but2,WM_SETTEXT,0,Integer(pchar(edt1.Text))); end;

reckychen · 2005-06-25

To:minglove 我照着你的做法做了一下出现以下的出错信息： 行：(windows.enumchildwindows(MainHandle,@enumchildHandle,0)

错误信息：Variable required 行：(getmem(@ClassName,255)

Left side cannot be assigned to

wbo · 2005-06-26

我曾用过的一个土办法，和reckychen自己的方法类似： 先用FindWindow找到窗口 再多次调用GetNextWindow找到需要的edit框，然后发送消息。 对方如果是确定的某个程序，GetNextWindow调用的次数是固定的，在设计时调试好就行了。

reckychen · 2005-06-26

这已经是我使用的方法了，你看回程序就知道了

如何实现自动填写edit框数据？ ( 积分: 50 )

reckychen

Unregistered / Unconfirmed

reckychen

Unregistered / Unconfirmed

陌生

Unregistered / Unconfirmed

hearwind

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

reckychen

Unregistered / Unconfirmed

lcyandzj

Unregistered / Unconfirmed

深蓝色的鱼

Unregistered / Unconfirmed

missinwind

Unregistered / Unconfirmed

jack_ken

Unregistered / Unconfirmed

reckychen

Unregistered / Unconfirmed

fei_l

Unregistered / Unconfirmed

reckychen

Unregistered / Unconfirmed

minglove

Unregistered / Unconfirmed

reckychen

Unregistered / Unconfirmed

reckychen

Unregistered / Unconfirmed

reckychen

Unregistered / Unconfirmed

wbo

Unregistered / Unconfirmed

reckychen

Unregistered / Unconfirmed

Similar threads