Servantik
-
Постов
6 -
Зарегистрирован
-
Посещение
Сообщения, опубликованные Servantik
-
-
Она равна 0, если курсор не был внутри TMemo.
Сначала нажмите Button2 (чтобы выставить курсор в TMemo на не0ю позицию, например, 70). Потом Button1, чтобы получить глюк. Прилагаю проект. -
Вот этого
uses FMX.Memo.Types; -
Спасибо! Но при перекидке 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; -
Большое спасибо! Очень интересно. Но что делать, если событие FormResize не порождается?
Например, TabSheet имеет Align = alNone и его ширина увеличивается при нажатии на кнопку? Я пробовал вставить вашу магию в события Resize TabSheet и Memo, но она не сработала. -
Delphi Rio.
На пустую форму небольшого размера кладу TabSheet с одной страницей, выровненный alTop. На TabSheet кладу TMemo, также выровненное alTop. При создании формы ставлю Memo1.WordWrap := true;
При максимизации формы ширина зоны, в которой показывается курсор, остается неизменной, несмотря на то, что ширина TMemo увеличивается. Как это побороть?
TMemo. Не отображается курсор при изменении размера
в TMemo
Опубликовано
Спасибо! Мне такое тоже в голову не пришло (:.
Да. Конечно же, в реальном приложении не будет кнопок, и нужно будет перехватывать все возможные изменения размера, чтобы вызывать "костыли". Но это все равно лучше, чем ничего.