Главная Информер Журнал Форум Wiki DRKB Discuz!ML Помощь проекту




Отслеживаем позицию курсора в EditBox.

Автор: Lutfi Baran

В форму добавляются TEditBox и TLabel, при этом TLabel постоянно показывает позицию курсора в элементе редактирования.

Совместимость: Все версии Delphi

  Пример:

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;