Выделить строку в 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;
|
|
