richedit中内的选择(10分)

A

apiaor

Unregistered / Unconfirmed
GUEST, unregistred user!
在我程序运行时,我想自动选种richedit中第20到第80个字符,请问怎么选?当我把内容放到
剪切板上以后,我想在清空剪切板,怎么清空?
 
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;
 
顶部