|
|
![]() |
![]() |
![]() |
Как
сделать окошко подсказки в редакторе как дельфи по 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) =-
|
| Copyright ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
| Источник получения информации: http://www.delphimaster.ru
|
|
