Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

Как привязать ListBox к RichEdit   Найти похожие ветки 

 
antoniz   (2002-07-16 08:59) [0]

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


 
olookin ©   (2002-07-16 09:39) [1]

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;


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

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



Страницы: 1 вся ветка

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.016 c
14-95504
Neox
2002-07-01 23:31
2002.07.29
Проверка правописания online


14-95547
lds78
2002-07-03 10:19
2002.07.29
Explorer s crash


3-95198
alexvan
2002-07-06 12:45
2002.07.29
Как выполнить запрос?


14-95519
Cobalt
2002-06-22 14:04
2002.07.29
Ошибка при установке INDY


1-95354
Leny
2002-07-18 11:21
2002.07.29
Строки в таблице