Отслеживаем позицию курсора в 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