Выделить строку в Memo
Материал из DRKB
Выделить строку в 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;
Source: http://delphiworld.narod.ru/
ID: 00989