TMemo

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

Автор: Hog

 

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

 

1. Делаешь ListBox, заполняешь, visible := false, parent := Memo

2. У Memo в обработчике Memo.onKeyDown что-нибудь типа:

 

Code:

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;

 

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

 

Новые статьи

Ранние статьи

Случайные статьи

Популярные статьи

Подробности
Родительская категория: VCL
Категория: TMemo

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!

Защитный код
Обновить