怎样通过发消息的方法在文本框中插入一个汉字，而不覆盖以有字符串？

Question

提一个思路：
首先找到这个文本框的句柄，然后可以给这它发消息。至于具体的消息，你自己去MSDN中找WM_GETTEXT或WM_SETTEXT，仔细看一下里面的解释，你自己就知道怎么办了。

Answer 1

你可以用edit1.text:=edit1.text+string;呀

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
  s := Edit1.Text +  '中国人';
  SendMessage(Edit1.Handle, WM_SETTEXT, 0, Longint(s));
0Aend;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 3

edit1的值就要通过WM_GETTEXT消息来获得了。而WM_SETTEXT消息则是改变这个值的，understand?还不会可以给我来信，[email protected]，我这儿应该还有原来的代码。

Answer 4

先用消息获取text的文本至str1.
str1:=atr1+'我‘；
在用消息送出。