Главная страница
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.01 c
1-95440
DARS73
2002-07-17 00:59
2002.07.29
Уважаемые мастера, Как обработать ошибку???


14-95483
Viewer
2002-06-28 21:23
2002.07.29
ОБЩИТЕЛЬНЫЙ ЭСТЕТ, ИЛИ В ГОСТЯХ БЕЗ КОМПЛЕКСОВ.


8-95459
novom
2002-03-09 23:09
2002.07.29
Эквалайзер.


1-95346
andrey_pst
2002-07-18 11:40
2002.07.29
Как узнать закончил ли работу *.exe


8-95451
I/O
2002-03-20 17:52
2002.07.29
MP3