Как сделать окошко подсказки в редакторе как Delphi по CTRL-J
Falk0ner, вс, 06/07/2008 - 15:34.
Как сделать окошко подсказки в редакторе как 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. := Memo.CaretPos.y + lb.height;
lb.Visible := True;
lb.SetFocus;
end;
begin
lb.Left := Memo.CaretPos.x;
lb. := Memo.CaretPos.y + lb.height;
lb.Visible := True;
lb.SetFocus;
end;
он показывается.. а дальше работай с листбоксом, вставляй в мемо нужный текст, пряч листбокс
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий