Отслеживаем позицию курсора в EditBox.
Материал из DRKB
Отслеживаем позицию курсора в EditBox.[править | править код]
В форму добавляются TEditBox и TLabel, при этом TLabel постоянно показывает позицию курсора в элементе редактирования.
procedure TForm1.Edit1Change(Sender: TObject);
begin
CurPos := Edit1.SelStart;
Label1.Caption := IntToStr(CurPos);
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_LEFT then Dec(CurPos);
if Key = VK_RIGHT then Inc(CurPos);
Label1.Caption:= IntToStr(CurPos);
end;
Source: Взято из http://forum.sources.ru
ID: 00530