如何用SENDMESSAGE在TRICHEDIT中增加一行文字，相当于Lines.add(50分)

sandal · 2002-09-24

如题. 求教！！！！

ugvanxk · 2002-09-24

var   p

char; begin  p:='abc'; SendMessage(memo1.Handle,wm_settext,0,longint(p)); end;

sandal · 2002-09-25

TO: ugvanxk  我要的是增加一行，即在原有资料的末行的下一行填资料。

sandal · 2002-09-25

哪位大富翁来JIU命呀？

nick4309 · 2002-09-29

实在没办法就显取得原来的,在加一行上去

阿尉 · 2002-09-29

刷新也是问题呀

wk_knife · 2002-10-10

看看RICHEDIT.PAS。 RICHEEDIT用到的消息都定义在里面。

独帅 · 2002-10-11

//在RichEdit1中增加一行，内容是Edit1的内容 procedure TForm1.Button1Click(Sender: TObject); var   cr: TCharRange;   s: String; begin   cr.cpMin := Length(RichEdit1.Lines.Text) + 1;   cr.cpMax := cr.cpMin;   s := #13#10 + Edit1.Text + #13#10;   SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, LongInt(@cr));   SendMessage(RichEdit1.Handle, EM_REPLACESEL, 1, LongInt(PChar(s)));   //上面一句中，1表示操作完成后可以按Ctrl+Z来撤销   //如果为0，则不能撤销 end;

独帅 · 2002-10-11

需要包含RichEdit.pas单元

sandal · 2002-10-15

TCharRange; 需要USES 那个文件，TKS!

独帅 · 2002-10-15

use RichEdit;

jsxjd · 2002-10-15

s := #13#10 + Edit1.Text + #13#10;       // =====这上不要它！

sandal · 2002-10-16

i:=Length(RhEdt1.Lines.Text);  sMess:=Edit1.text+'('+Timetostr(now)+')';  RhEdt1.Lines.add(sMess);  RhEdt1.SelStart:=i;  RhEdt1.SelLength:=length(sMess);  RhEdt1.SelAttributes.Color:=clBlack;  RhEdt1.SelStart:=i+length(sMess); 上面代码错在哪里？为何着色时总是错？设计目的是自已加进去的文字变成黑色，从别 处接收到的文字用原色（兰色）。

sandal · 2002-10-16

多人接受答案了。

如何用SENDMESSAGE在TRICHEDIT中增加一行文字，相当于Lines.add(50分)

sandal

Unregistered / Unconfirmed

ugvanxk

Unregistered / Unconfirmed

sandal

Unregistered / Unconfirmed

sandal

Unregistered / Unconfirmed

nick4309

Unregistered / Unconfirmed

阿尉

Unregistered / Unconfirmed

wk_knife

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

sandal

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

sandal

Unregistered / Unconfirmed

sandal

Unregistered / Unconfirmed

Similar threads