Memo1.SelectAll; //或者如下代码 Memo1.SelStart:=1; Memo1.SelLength:=45; Memo1.SetFocus;
procedure TForm1.Button1Click(Sender: TObject);begin Memo1.SelectAll; Memo1.SetFocus;end;
