【delphi源码】实现RichEdit中的整行选中
标签: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源码】抓取并显示程序中的鼠标