Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3825506 Fri, 13 Mar 2020 14:01:30 +0000 Неправильное положение курсора в поле Edit. https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3825506 Сергей85 Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818353 Wed, 15 Jan 2020 14:16:07 +0000 Неправильное положение курсора в поле Edit. https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818353 Цитата Сергей85 @
"Сдвинуть курсор на нужную позицию" - если бы это можно было сделать - вопроса бы не было.

Насколько я помню:
    // если pos1 = pos2, тогда курсор переместиться на указанную позицию (счёт с 0)
    ::SendMessage(hwndEdit,(UINT)EM_SETSEL,(WPARAM)(pos1),(LPARAM)pos2);
]]> ЫукпШ Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818352 Wed, 15 Jan 2020 14:10:30 +0000 Неправильное положение курсора в поле Edit. https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818352 http://www.cyberforum.ru/delphi-beginners/thread329624.html

Добавлено
    procedure TForm1.Button1Click(Sender: TObject);
    var
      S : String;
      i : Integer;
    begin
      Edit1.Text := '1234567890';
      Edit1.SetFocus;
     
      //Установить курсор перед первым символом.
      Edit1.SelStart := 0;
      Edit1.SelLength := 0;
     
      //Задержка в 2 секунды - для того, чтобы пользователь успел увидеть
      //где теперь расположен курсор.
      for i := 1 to 100 do begin
        Application.ProcessMessages;
        Sleep(20);
      end;
     
      //Установить курсор перед вторым символом.
      Edit1.SelStart := 1;
      Edit1.SelLength := 0;
      for i := 1 to 100 do begin
        Application.ProcessMessages;
        Sleep(20);
      end;
     
      //Установить курсор перед вторым символом.
      Edit1.SelStart := 1;
      Edit1.SelLength := 0;
      for i := 1 to 100 do begin
        Application.ProcessMessages;
        Sleep(20);
      end;
     
      //Установить курсор перед пятым символом.
      Edit1.SelStart := 4;
      Edit1.SelLength := 0;
      for i := 1 to 100 do begin
        Application.ProcessMessages;
        Sleep(20);
      end;
     
      //Установить курсор перед последним символом.
      Edit1.SelStart := Length( Edit1.Text ) - 1;
      Edit1.SelLength := 0;
      for i := 1 to 100 do begin
        Application.ProcessMessages;
        Sleep(20);
      end;
     
      //Установить курсор после последнего символа.
      Edit1.SelStart := Length( Edit1.Text );
      Edit1.SelLength := 0;
    end;


Добавлено
Пробовал юзать данное свойство?]]> Wound Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818348 Wed, 15 Jan 2020 13:58:55 +0000 Неправильное положение курсора в поле Edit. https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818348 Сергей85 Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818339 Wed, 15 Jan 2020 13:48:13 +0000 Неправильное положение курсора в поле Edit. https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818339 Сергей85, если какому-нибудь Эдиту поменять содержимое (любым способом), то его паренту
будет направлено уведомление об этом. В оконную процедуру.
По этому уведомлению можно:

1. Считать строку, узнать размер текста.
2. Сдвинуть курсор на нужную позицию. Например, в конец строки.]]> ЫукпШ Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818319 Wed, 15 Jan 2020 12:32:46 +0000 Неправильное положение курсора в поле Edit. https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3818319 Сергей85 Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3794322 Sat, 30 Mar 2019 13:08:00 +0000 Неправильное положение курсора в поле Edit. https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3794322 Сергей85 Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3793685 Thu, 21 Mar 2019 18:36:41 +0000 Неправильное положение курсора в поле Edit. https://forum.sources.ru/index.php?showtopic=414429&view=findpost&p=3793685
Если после этого изменить значение именно программно - курсор оказывается именно слева от числа.

Как задать правое положение, без нарушения ручного ввода?

Пробовал SelText или что-то похожее - мешает при ручном вводе, постоянно отодвигая курсор вправо.]]> Сергей85 Borland C++ Builder/Turbo C++ Explorer