Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi

Дата: 06.01.01


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




Допустим у тебя 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;

он показывается.. а дальше работай с листбоксом, вставляй в мемо нужный текст, пряч листбокс
hog - hog@i.am (12.11.00 02:53)

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

Чтобы вернуться оцените этот вопрос/ответ:
   

Прислать свои комментарии


Новое на сайте

Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо