跪求delphi怎样清除其它程序界面中某个文本框的内容，然后将剪贴板里面的字符串复制到这个文本框。解决后再单独送500分。

[caixinke]

跪求delphi怎样清除其它程序界面中某个文本框的内容，然后将剪贴板里面的字符串复制到这个文本框。解决后再单独送500分。

[stgsd]

你确定‘其它程序界面中某个文本框’的文字不是画出来的？

[eqapple]

sendmessage

[caixinke]

我现在都可以取到该文本框的句柄了，现在就是要修改文本框的内容，看资料是用sendmessage函数，但是我不会用啊，请高手给个例子（假定该文本框的句柄已经知道）

[xiedewei]

procedure TForm1.Button1Click(Sender: TObject);
var
  CalcEdit: HWND;
begin
  WinExec('Calc', SW_SHOW);
  CalcEdit := FindWindowEx(FindWindow('SciCalc', '计算器'), 0, 'Edit', nil);
  SendMessage(CalcEdit, WM_SETTEXT, 0, Integer(PChar('0123456789')));
end;

[caixinke]

xiedewei ：非常感谢，要的就是这个啊。哈哈，结贴了。

[tjg5202]

嗯。。。可以结贴了

[xiedewei]

不客气 给分就行了

[genispan]

送分贴？

[lcgboy]

貌似被骗了。。。