A apiaor Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-05 #1 在我程序运行时,我想自动选种richedit中第20到第80个字符,请问怎么选?当我把内容放到<br>剪切板上以后,我想在清空剪切板,怎么清空?
死 死水 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-05 #3 uses clipbrd;<br><br>procedure TForm1.FormShow(Sender: TObject);<br>begin<br> RichEdit1.SetFocus;<br> RichEdit1.SelStart:=20;<br> RichEdit1.SelLength:=80-20;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> Clipboard.Clear;<br>end;
uses clipbrd;<br><br>procedure TForm1.FormShow(Sender: TObject);<br>begin<br> RichEdit1.SetFocus;<br> RichEdit1.SelStart:=20;<br> RichEdit1.SelLength:=80-20;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> Clipboard.Clear;<br>end;
S sunman Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-15 #5 uses clipbrd;<br><br>procedure TForm1.FormActivate(Sender: TObject)<br>begin<br> RichEdit1.SetFocus;<br> RichEdit1.SelStart:=19;//应该从19开始选!<br> RichEdit1.SelLength:=60;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> Clipboard.Clear;<br>end;
uses clipbrd;<br><br>procedure TForm1.FormActivate(Sender: TObject)<br>begin<br> RichEdit1.SetFocus;<br> RichEdit1.SelStart:=19;//应该从19开始选!<br> RichEdit1.SelLength:=60;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> Clipboard.Clear;<br>end;