A apiaor Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-05 #1 在我程序运行时,我想自动选种richedit中第20到第80个字符,请问怎么选?当我把内容放到 剪切板上以后,我想在清空剪切板,怎么清空?
死 死水 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-05 #2 implementation uses clipbrd; {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin RichEdit1.SetFocus; RichEdit1.SelStart:=20; RichEdit1.SelLength:=80-20; end; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.Clear; end;
implementation uses clipbrd; {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin RichEdit1.SetFocus; RichEdit1.SelStart:=20; RichEdit1.SelLength:=80-20; end; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.Clear; end;