Номер символа, после которого находится курсор. Delphi

[-Yevgeniy-]

Программа должна отображать номер символа, после которого находится курсор! Интерфейс программы я сделал! Имеется окно редактирования(TEdit) в котором и будет бегать курсор по тексту и окно (label) в котором должен отображаться номер символа! Подскажите какое свойство нужно использовать???

[Hacker19_90]

Свойство SelStart (типа Integer) определяет порядковый номер символа, перед которым находится курсор. Отсчёт идёт от нуля;

[-Yevgeniy-]

Сообщение от Hacker19_90

Свойство SelStart (типа Integer) определяет порядковый номер символа, перед которым находится курсор. Отсчёт идёт от нуля;

А можно подробней? Как его правильно прописать? Спасибо!

[Hacker19_90]

Как-то так по-моему

label1.caption := IntToStr(edit1.selstart);

Кинь это в какой-нибудь тимер с интервалом в 1 мкс!

[-Yevgeniy-]

Спасибо! Подскажите еще как прописать процедуру OnKeyPress для Edit чтобы она реагировала на нажатие клавиш VK_RIGHT и VK_LEFT и выводила информацию в label?

[Hacker19_90]

чтобы она реагировала на нажатие клавиш VK_RIGHT и VK_LEFT и выводила информацию в label?

Какую информацию?

[-Yevgeniy-]

Сообщение от Hacker19_90

Какую информацию?

label1.caption := IntToStr(edit1.selstart); номер символа перед курсором!
Ну вот например для мышки я использовал:
procedure TKursor.txtTClick(Sender: TObject);
begin
label2.caption := IntToStr(txtT.selstart);
end;
А вот для OnKeyPress это не работает!

[Hacker19_90]

Пишите в OnKeyDown

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (key = vk_left) or (key = vk_right) then
         label1.Caption := IntTostr(edit2.selstart);
end;

[-Yevgeniy-]

Спасибо большое!