[novachok]

Подскажите как показать попуп-меню и при этом что-бы фокус остался в Edit'e.

[NumLock]

Код:

var
  cp: TPoint;
begin
  GetCursorPos(cp);
  PopupMenu1.Popup(cp.X, cp.Y);
end;

[novachok]

Я пытаюсь сделать подсказку как в поиске Яндекс, когда вводишь текст а под ним показ подсказок. У меня тоже отображается попуп-меню при вводе подобных наборов слов, но когда есть первое совпадение отображается попуп-меню и фокус (рисочка "|") пропадает с едита и нельзя дальше вводить текст.

Как показывать меню и при этом можна было дальше вводить данные?
И меню отображаю я под едитом!!!
Может кто знает?