Цитата:
|
Сообщение от bambooshoot
А как рассчитать позицию каретки?
|
Ну например для компонента Memo:
Код:
var
p: TPoint;
begin
p:= Memo1.CaretPos;
end;
Код:
StdCtrls:
property CaretPos: TPoint read GetCaretPos write SetCaretPos;
function GetCaretPos: TPoint; virtual;
procedure SetCaretPos(const Value: TPoint); virtual;