【delphi源码】实现RichEdit中的整行选中

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
a:integer;
begin
a:=RichEdit1.Perform(EM_LINELENGTH,RichEdit1.SelStart,0);
RichEdit1.SelStart:=RichEdit1.Perform(EM_LINEINDEX,RichEdit1.CaretPos.Y,0);
RichEdit1.SelLength:=a;
end;
end.

---

上一篇：【delphi源码】在状态栏里面加入进度条

下一篇:【delphi源码】抓取并显示程序中的鼠标