>Function SetCaretPosition(memo:TMemo; x,y:integer);
var i:integer;
begin
i := SendMessage(memo.Handle, EM_LINEINDEX, y, 0) + x;
SendMessage(memo1.Handle, EM_SETSEL, i, i);
end;
или
type TFake=class(TCustomMemo);
....
TFake(MyMemo).SetCaretPos()
В статье описывается методы перемещения каретки TMemo в нужную строку и столбец, используя функцию SetCaretPosition или создавая класс TFake.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал