 |
Delphi Tips & Tricks | softsale > Delphi Tips & Tricks |
| następna rada > | < poprzednia rada |
Jak zaznaczyć wiersz w memo poprzez kliknięcie?
procedure wybierz_wiersz_memo(Memo : TCustomMemo) ;
var
wiersz : integer;
begin
with Memo do
begin
wiersz := Perform(EM_LINEFROMCHAR, SelStart, 0) ;
SelStart := Perform(EM_LINEINDEX, wiersz, 0) ;
SelLength := Length(Lines[wiersz]) ;
end;
end;
Na zdarzeniu OnClick komponentu memo
....
wybierz_wiersz_memo(Memo1) ;
|
|
SOFTSALE - Oprogramowanie i Szkolenia softsale@softsale.com.pl 03-565 Warszawa , ul. Borzymowska 43 lok. 301C tel/fax:4084840,0607612428 |