Memo

← →
Ivolg © (2004-02-24 16:29) [0]

Здрасьте! Как можно узнать в memo какой столбец и строчка?Зарание СПАСИБО!

← →
ssk (2004-02-24 16:33) [1]

Memo.Caret.X
Memo.Caret.Y

← →
Anatoly Podgoretsky © (2004-02-24 16:47) [2]

Это не таблица, а если ты про каретку то http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N77, если про курсор то [1]

← →
Ivolg © (2004-02-24 16:54) [3]

Я про курсор, а что означает: [1]?

← →
Тимохов © (2004-02-24 16:54) [4]

ответ с номером 1.

← →
Anatoly Podgoretsky © (2004-02-24 17:07) [5]

Ivolg © (24.02.04 16:54) [3]
Тогда [1]

← →
Ivolg © (2004-02-24 17:25) [6]

К примеру в проге которая лежит в кладовке называется Cool Editor,
кто скачал знает что в низу в ststusbsre отображается позиция мигающего курсора тоесть строка и столбец?

← →
Palladin © (2004-02-24 17:29) [7]

[1] - означает один, напряги аналитику если она у тебя есть
слово memo ничего не означает? а значением точки в синтаксисе Delphi знаком?

← →
Serge © (2004-02-24 17:32) [8]

[1] глючит причем довольно часто, вот код
Function TfmConversion.UpdateCursorPos: TPoint; Var CharPos: TPoint; Begin CharPos.Y := SendMessage(Editor.Handle, EM_EXLINEFROMCHAR, 0, Editor.SelStart); CharPos.X := (Editor.SelStart - SendMessage(Editor.Handle, EM_LINEINDEX, CharPos.Y, 0)); Inc(CharPos.Y); Inc(CharPos.X); Result := CharPos; End; - выдран из примера РичЕдит в поставке дельфей - работает нормально ворде как.

> Palladin © (24.02.04 17:37) [9]
Позволяю :)

Memo. CaretPos.X
Memo. CaretPos.Y

При перемещении стрелками туды-сюды
Caption:=IntToStr(Memo1.CaretPos.X)+" "+IntToStr(Memo1.CaretPos.Y);
выдает следующее:

нажимаем -> "0 0"
нажимаем -> "1 0"
нажимаем -> "2 0"

нажимаем <- "3 0"
нажимаем <- "2 0"
нажимаем <- "1 0" тут курсор уже находится на 0,0
нажимаем <- "0 0"

Обработчики были расположены в OnKeyDown - и тот из примера и приведденный сдесь, первый работает без глюков, второй ...
Я не спорю что может просто что-то не так сделал здесь, но ответом выше я предложил человеку готовое решение так-что не обессудьте :)

Да что тут обессуживать, если то что ты предложил как раз реализовано в TCustomMemo.GetCarretPos.

Memo Найти похожие ветки