Как сделать окошко подсказки в редакторе как Delphi по CTRL-J

Как сделать окошко подсказки в редакторе как Delphi по CTRL-J

Автор: Hog

Допустим у тебя TMemo..

1. Делаешь ListBox, заполняешь, visible := false, parent := Memo
2. У Memo в обработчике Memo.onKeyDown что-нибудь типа:

if (key = Ord('J')) and (ssCtrl in Shift) then
begin
  lb.Left := Memo.CaretPos.x;
  lb.Top := Memo.CaretPos.y + lb.height;
  lb.Visible := True;
  lb.SetFocus;
end;

он показывается.. а дальше работай с листбоксом, вставляй в мемо нужный текст, пряч листбокс

Ватин - производство и продажа . Оперативная доставка питьевой воды Nestle. Доставка в офис настоящая вода питьевая. . Печать баннеров - удобно и качественно, на бумаге. Печать баннеров срочно. . Доска объявлений - WinWins - дефрагментация диска. Все для безопасности автомобиля. .