[bambooshoot]

Всем привет! Народ подскажите как можно реализовать окно подобное окну с подсказками в делфи. Как привязать его к курсору? Спасибо

[Ildar-tsr]

Наверно ты имеешь в виду хинты? Это подсказки, которые всплывают если навести курсор на какой-либо компонент.

[bambooshoot]

Нет. Если пишешь например button1ставишь точку и появляется окно в котором описаны свойства, функции и т.д.

[Cooper72]

Нужно написать свой класс, наследник tcustomcontrol. вставить в него tlistbox. определиться откуда будут браться данные (то, что дописывается после точки). Позиция нового окна рассчитывается от позиции каретки.
как-то так.

[bambooshoot]

А как рассчитать позицию каретки?

[Ildar-tsr]

Сообщение от 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;