| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как привязать ListBox ;к RichEdit [D5]

antoniz ©   (2002-07-16 08:59:00) 

Подскажите пожалуйста, как сделать чтоб по нажатию определенной комбинации клавиш на компоненте TRichEdit появлялся список с ключевыми словами. Как например это сделано в редакторе Delphi по нажатию комбинации клавиш Ctrl+Space

---

GenyS   (2002-07-16 09:40:00) [1]

Породи динамически, а потом убей

---

olookin   (2002-07-16 09:39:00) [2]

procedure TMacroForm.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift=[ssCtrl]) and (ord(Key)=32) then begin
Posit.x:=RichEdit1.CaretPos.x; Posit.y:=RichEdit1.CaretPos.y;
CurStr:=RichEdit1.Lines.Strings[Posit.y]; RichEdit1.OnChange(RichEdit1);
ListBox3.Visible:=true; ListBox3.SetFocus; end;
end;

procedure TMacroForm.RichEdit1Change(Sender: TObject);
var f: tagPoint;
begin
GetCaretPos(f); ListBox3.Left:=f.x; ListBox3.Top:=f.y+RichEdit1.Font.Size*5;
Posit.x:=RichEdit1.CaretPos.x; Posit.y:=RichEdit1.CaretPos.y;
CurStr:=RichEdit1.Lines.Strings[Posit.y];
end;

---

Наверх