Главная страница
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.013 c
1-95335
Leny
2002-07-18 09:30
2002.07.29
Вызов события


3-95192
Анонимщик
2002-07-02 21:14
2002.07.29
Interbase, ISC4.gdb


6-95470
Rammst
2002-05-19 10:55
2002.07.29
HTML


3-95184
Prog_mail
2002-07-05 10:34
2002.07.29
Помогите! Как сохранить изменения в Query?


1-95376
yxz
2002-07-15 21:09
2002.07.29
DLL и строки