Picproje Elektronik Sitesi

PROGRAMLAMA DİLLERİ => Delphi => Konuyu başlatan: z - 27 Eylül 2019, 16:06:21

Başlık: Delphi Memo nesnesinde tiklanan satirin numarasini bulmak.
Gönderen: z - 27 Eylül 2019, 16:06:21
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?
Başlık: Ynt: Delphi Memo nesnesinde tiklanan satirin numarasini bulmak.
Gönderen: Yuunus - 27 Eylül 2019, 16:22:38
Memo.lines.indexof gibi biseydi galiba
Başlık: Ynt: Delphi Memo nesnesinde tiklanan satirin numarasini bulmak.
Gönderen: z - 27 Eylül 2019, 16:23:06
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;