string içinde cursor un yerini bulmak

[cuneytak]

iyi günler arkadaşlar

bir edit içinde yazılmış olan stringin üzerinde iken cursor un kaçıncı karakterin üzerinde oldugunu bulmam gerekiyor . pos ile buldurmak istiyorum ama cursor u nasıl belirtirim bu konuda fazla bilgim yok ...


buldurma nedenimde stringi cursorun oldugu yerden dbclick yaptıgımda 2 parcaya ayırmam gerekiyor.

[hbahadir]

TEdit.SelStart
özelliği yardımcı olabilir. delphinin helpinde gerekli bilgiler ve örnekler mevcut.

[67neo]

Edit bileşeninin on_keydown olayına girip, begin yazan satırı silerek aşağıdakini yapıştır;

Kod: Tümünü seç

var
  i: integer;
begin
  i := Edit1.SelStart;