卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-04 #2 你可以将前一窗口中选定的文本发送到剪贴板,然后从剪贴板粘贴。 如 : Form1.Edit1.CopyToClipBoard; Form2.Edit2.PasteFromClipBoard;
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-05 #4 你和剪贴板有仇啊? 不想用它你就把前一活动窗体中被选定的文本内容临时保存到文件或TString里去,到 后一个窗体里取出来。
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-06 #6 你用Ctrl+c and Ctrl+v 不就行了么???
风 风中流云 Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-08 #8 先将你所选定的文本内容赋给一个变量。 使用时从该变量中读取。。
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-08 #9 通过消息 WM_GETTEXT得到文本,再用如EM_GETSEL得到选择的位置,就可以得到SELTEXT
L leasun Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-10 #10 menxin sir,能不能说得详细一点呢?关于EM_GETSEL如何使用?
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-10 #11 procedure TForm1.Button1Click(Sender: TObject); var _start,_end:integer; begin Edit1.Perform(EM_GETSEL,LongInt(@_start),longint(@_end)); caption:=format('select start pos is %d,and the end pos is %d',[_start,_end]); end;
procedure TForm1.Button1Click(Sender: TObject); var _start,_end:integer; begin Edit1.Perform(EM_GETSEL,LongInt(@_start),longint(@_end)); caption:=format('select start pos is %d,and the end pos is %d',[_start,_end]); end;