TMemo. Не отображается курсор при изменении размера

[Servantik]

Delphi Rio.
На пустую форму небольшого размера кладу TabSheet с одной страницей, выровненный alTop. На TabSheet кладу TMemo, также выровненное alTop. При создании формы ставлю Memo1.WordWrap := true;
При максимизации формы ширина зоны, в которой показывается курсор, остается неизменной, несмотря на то, что ширина TMemo увеличивается. Как это побороть?

Test1.7z

[Олег Киреев]

У меня помогло так:

procedure TForm1.FormResize(Sender: TObject);
begin
 Memo1.WordWrap := false;
  Memo1.WordWrap := true;
end;

С Уважением Олег.

[Servantik]

Большое спасибо!  Очень интересно. Но что делать, если событие FormResize не порождается?
Например, TabSheet имеет Align = alNone и его ширина увеличивается при нажатии на кнопку? Я пробовал вставить вашу магию в события Resize TabSheet и Memo, но она не сработала.

Test1.7z

[Олег Киреев]

Можно и на кнопку:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TabControl1.Width := TabControl1.Width+200;
  Memo1.WordWrap := false;
  Memo1.WordWrap := true;
end;

[Servantik]

Спасибо! Но при перекидке WordWrap туда и обратно исчезает курсор. Если сделать SetFocus, то он показывается на 0й позиции Memo. Хотя CaretPosition остается неизменной (той, которая была до клика на кнопку). С этим можно отбороться?  

procedure TForm1.Button1Click(Sender: TObject);
var cpO: TCaretPosition;
begin
  TabControl1.Width := TabControl1.Width+200;
  cpO := Memo1.CaretPosition;
  Memo1.WordWrap := false;
  Memo1.WordWrap := true;
  Memo1.SetFocus;
  Memo1.CaretPosition := cpO;
end;

[Олег Киреев]

У меня ругается на TCaretPosition.

Наверное не хватает юнита. Какого?

[Servantik]

Вот этого
uses FMX.Memo.Types;

[Олег Киреев]

Так у Вас в переменной cpO Х=0 и Y=0.

Предлагаю почитать здесь:

https://progi.pro/delphi-memo-pochemu-kursor-vsegda-idet-vlevo-10314416

С Уважением Олег.

[Servantik]

Она равна 0, если курсор не был внутри TMemo.
Сначала нажмите Button2 (чтобы выставить курсор в TMemo на не0ю позицию, например, 70). Потом Button1, чтобы получить глюк. Прилагаю проект.

Test1.7z

[Sergey Tartyzhev]

BeginUpdate и EndUpdate приносят счастье

[slav_z]

Для варианта с кнопкой могу еще предложить Memo1.Width := Memo1.Width+1 - реально размер не изменится (Memo.Align=Top), но все что надо оно сделает...

К сожалению в реальном приложении никакой кнопки не будет...  и скорее всего надо будет что то делать в событиях OnResize или OnResized формы или Memo... а там ничего что было предложено выше не работает...

[Servantik]

Спасибо! Мне такое тоже в голову не пришло (:.
Да. Конечно же, в реальном приложении не будет кнопок, и нужно будет перехватывать все возможные изменения размера, чтобы вызывать "костыли". Но это все равно лучше, чем ничего.