Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Вниз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 (2004-02-24 17:37) [9]
> Serge © (24.02.04 17:32) [8]
Как оно глючит? позвольте узнать
← →
Serge (2004-02-24 17:59) [10]> 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 - и тот из примера и приведденный сдесь, первый работает без глюков, второй ...
Я не спорю что может просто что-то не так сделал здесь, но ответом выше я предложил человеку готовое решение так-что не обессудьте :)
← →
Palladin (2004-02-24 18:06) [11]Да что тут обессуживать, если то что ты предложил как раз реализовано в TCustomMemo.GetCarretPos.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c