Софт клавиши, нужна помощь

[KurtWagner]

rpy3uH я начинаю Компилировать и выделяет then

procedure TForm1.WMHotkey( var msg: TWMHotkey );
begin
  if msg.hotkey = 1 and ON then EmptyRecycleBin;
end;

что делать?

[DomiNick]

Хм... А ты добавил в "var" переменную "ON: BooLean;"..?

ой... извините, у меня с браузером что-то неладное... глючит последнее время по страшному...((

Попробуй написать со скобками:

if (msg.hotkey=1) and ON then EmptyRecycleBin;

хм..... а почему "EmptyRecycleBin;" ..? там же вроде было"ShowMessage('message');"

[KurtWagner]

так это ж моя команда, а ShowMessage ет так пробник!

Во спасибо брат DomiNick помогло! + тебе!

[Alter]

Для упрощения использования HotKey в программе, есть компонент Fish. Поищи его на форуме, где-то был. Очень удобно.

[KurtWagner]

Вопрос, у Delphi есть стандартный компонент, HotKey1 как мне мой код изначальный связать с ним? чтоб при замене кнопок в компоненте HotKey1 срабатывал код?

[Alter]

Раньше тоже хотел через thotkey, однако выбрал fish. Всё то же самое, только компактно.
Пример использования:

...................................................
 fisHotKey1.Enabled := True; // активен перехват, изначально уже активно
 fisHotKey1.Key := HotKey1.HotKey; // назначаем клавиши
....................................................

procedure TForm1.fisHotKey1HotKey(Sender: TObject);
begin // событие при срабатывании hotkey
 ShowMessage('PUSH');
end;

[Kotofff]

Сообщение от Alter

Hаньше тоже хотел через thotkey, однако выбрал fish.

Век живи - век учись ...
От себя благодарю !!! Верная вещь.

[r9m]

от себя добавлю вот такой способ:

type
TISet = set of 0..SizeOf(Integer)*8 - 1;
...
...

var
state:integer;
begin
state := GetKeyState(VK_LMENU); // левый альт?

if 8 in TISet(state) then // проверяем старший бит, если установлен, то альт зажат
begin
        if key = VK_F1  then ShowMessage('Альт+Ф1');
end;

[KurtWagner]

Вот то что я заделал, но у меня не срабатывает след.
То что там стоит по умолчанию Alt + A раьотает прекрасно а когда я Alt + A меняю на скажем там Alt + W и переключаюсь на Edit1 у меня он не срабатывает, в чем проблема?

И скажите как это сохраить в базу! чтоб при след. открытии Project1 Alt + W сохранился... или то что, мы туда ввели! ??? заранее спасибо!

[KurtWagner]

Никто не Поможет?