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

Delphi , Программа и Интерфейс , TEdit

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

Code:

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;

Взято из http://forum.sources.ru

В статье описывается способ отслеживания позиции курсора в компоненте TEditBox Delphi, используя события Change и KeyDown для обновления показания TLabel.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: TEdit ::

Время компиляции файла: 2024-12-22 20:14:06
2025-05-01 13:15:02/0.0041360855102539/1