Delphi Memo nesnesinde tiklanan satirin numarasini bulmak.

Başlatan z, 27 Eylül 2019, 19:06:21

z

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?
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

Yuunus


z

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;
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

Yasal Uyarı: Picproje.org sitemizde 5651 sayılı kanunun 8. maddesine ve T.C.Knın 125. maddesine göre tüm üyelerimiz yaptıkları paylaşımlardan kendileri sorumludur. Picproje.org hakkında yapılacak tüm hukuksal şikayetleri İletişim sayfamızdan bize bildirdikten en geç 3 (üç) iş günü içerisinde ilgili kanunlar ve yönetmelikler çerçevesinde tarafımızca incelenerek gereken işlemler yapılacak ve site yöneticilerimiz tarafından bilgi verilecektir.