Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Вниз

HotKeyEdit?   Найти похожие ветки 

 
Юрий Ж. ©   (2004-01-13 01:17) [0]

Есть ли аналог HotKeyEdit и если есть, то можно ссылочку?
Очень надо!!!


 
<Falcon>   (2004-01-13 14:47) [1]

А нужен именно компонент? А просто зарегистрировать горячуюклвишу не подходит?


 
Юрий Ж. ©   (2004-01-13 21:29) [2]

>> А нужен именно компонент? А просто зарегистрировать горячуюклвишу не подходит?

Нет необходимо разрешить пользователю самому изменять сочетания горачих клавиш для чего либо, и желательно, чтобы это визуально отображалось.
Тем более, что компонент в винде стандартный, вот я и подумал, может есть компонент, или на WinAPI через CreateWindow лабать?


 
Maxim Pushkar   (2004-01-14 00:07) [3]


> Нет необходимо разрешить пользователю самому изменять сочетания
> горачих клавиш для чего либо, и желательно, чтобы это визуально
> отображалось.
> Тем более, что компонент в винде стандартный, вот я и подумал,
> может есть компонент, или на WinAPI через CreateWindow лабать?


1. Cтавишь EditBox,
2. Перехватываешь событие OnMessage
3. В нем ловишь Msg.message = одно из (WM_KEYUP, WM_KEYDOWN, WM_SYSKEYUP, WM_SYSKEYDOWN). Msg.lParam = код нажатой клавиши

При определенном энтузиазме ты получишь то, что тебе надо.


 
BelchonokH ©   (2004-01-14 19:24) [4]

Рабочий пример если надо

procedure TForm3.EditBox8KeyUp(Sender: PControl; var Key: Integer;
 Shift: Cardinal);
Var x: Integer;
begin
 if Key<32 then exit;
 EditBox8.Text:="";
 x:=0;
 if (Shift and 8)=8 then
 begin
  EditBox8.Text:=EditBox8.Text+"Ctrl+";
  x:=x+MOD_CONTROL;
 end;
 if (Shift and 32)=32 then
 begin
  EditBox8.Text:=EditBox8.Text+"Alt+";
  x:=x+MOD_ALT;
 end;
 if (Shift and 4)=4 then
 begin
  EditBox8.Text:=EditBox8.Text+"Shift+";
  x:=x+MOD_SHIFT;
 end;
 EditBox8.Text:=EditBox8.Text+CHR(Key);
end;


 
kosend   (2004-05-04 05:23) [5]

еще бы рабочий пример как назначить это сочетание клавиш...


 
SPeller ©   (2004-05-04 09:22) [6]

Разжевать и в рот положить?


 
kosend   (2004-05-04 12:58) [7]

по крайней мере до уровня THotKey + ShortCut. то что в хелпе написано про TMenuAccelerator маловато будет



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

Форум: "KOL";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.035 c
1-1101297047
Nox
2004-11-24 14:50
2004.12.05
Тип переменной вмещающей число с 30 нулями


1-1101107709
uny
2004-11-22 10:15
2004.12.05
Алгоритм - как выделить число


14-1100382291
Fin
2004-11-14 00:44
2004.12.05
Создание серьезных игр.


14-1100704225
Pavel_levaP
2004-11-17 18:10
2004.12.05
разбилась матрица на ноутбуке


1-1100802937
lp
2004-11-18 21:35
2004.12.05
Dbgrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский