Picproje Elektronik Sitesi

Delphi icin soruyorum.

Memo nesnemin icinde yuzlerce satir var.
Scrollbar ile gezindim ve ekranda gordugum bir satiri mouse ile tikladim.

Tikladigim satirin memonun bastan itibaren kacinci satiri oldugunu nasil bulurum?

Memo.lines.indexof gibi biseydi galiba

Cevabini buldum.

procedure TForm1.MemoClick(Sender: TObject);
var
  CurrentLine: integer;
begin
  CurrentLine := Memo.Perform(EM_LINEFROMCHAR, -1, 0);
  Memo.SelStart := Memo.Perform(EM_LINEINDEX, CurrentLine, 0);
  Memo.SelLength := Length(Memo.Lines[CurrentLine]);
  caption:=inttostr(CurrentLine);
end;