Выделить строку в Memo

Выделить строку в Memo

procedure TfrmMain.Memo1Click(Sender: TObject);
var
 Line: Integer;
begin
 with (Sender as TMemo) do
 begin
  Line := Perform(EM_LINEFROMCHAR, SelStart, 0);
  SelStart := Perform(EM_LINEINDEX, Line, 0);
  SelLength := Length(Lines[Line]);
 end;
end;

http://delphiworld.narod.ru/ DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...