всплывающий список

← →
Lotus © (2002-02-13 10:33) [0]

Нужно чтобы при вводе текста в Memo после нажатия какой-то кнопки, под курсором появлялся список ListBox (так же как появляются свойства компонентов после ввода точки в delphi).
Не знаю, как для этого определить координаты курсора в пикселях, относительно экрана или того же Memo?

← →
Юрий Зотов (M) © (2002-02-13 11:15) [1]

GetCaretPos

← →
Lotus © (2002-02-13 12:04) [2]

Не совсем понятно, можно пример?

← →
Юрий Зотов (M) © (2002-02-13 12:12) [3]

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
P: TPoint;
begin
GetCaretPos(P);
Caption := Format("X=%d, Y=%d", [P.X, P.Y])
end;

Дело в том, что GetCaretPos выдает координаты в кол.ве строк и символов, а координаты ListBox, нужно указывать в пикселах, так что этот способ врядли подойдет (конечно можно делать пересчет на пикселы, но шрифт может быть разного размера). Что можно сделать?

> Дело в том, что GetCaretPos выдает координаты в кол.ве строк и символов

Почему? В пикселях и выдает. И в справке так написано, и тест то же самое показывает.

всплывающий список Найти похожие ветки