Главная страница
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.011 c
1-95417
EugenCFG
2002-07-13 14:04
2002.07.29
Как вывести изображение на против каждого Item в RXCheckListBox


1-95286
Georg
2002-07-15 15:49
2002.07.29
TMaskEdit


14-95562
Frags
2002-07-01 20:33
2002.07.29
Правда что XP жесткие диски валит?


7-95590
VJar
2002-05-12 12:50
2002.07.29
Скрытие значков рабочего стола


1-95326
Skin
2002-07-17 22:37
2002.07.29
Timer