【delphi源码】实现RichEdit中的整行选中
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源码】实现RichEdit中的整行选中