рассчитываю позицию каретки так:
Код:
procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo2.Left:= Memo1.Left+Memo1.CaretPos.X*2+12;
Memo2.Top:=Memo1.Top+Memo1.CaretPos.Y*3+Memo1.Font.Size+Memo1.Lines.Count*10;
end;
Для y получается все нормально, а для х идет запаздывание. Что-то я не учитываю, а что понять не могу. А есть ли какие-то другие варианты решения этой задачи? Подскажите пожалуйста.