Смена функциональности при нажатой клавише

← →
YT (2004-03-27 13:22) [0]

Подскажите как лучше реализовать
смену действий(кнопок, меню и т.д) при нажтых
клавишах типа Ctrl или Alt или Shift.

Я на OnKeyDown при нажатии Ctrl или Alt или Shift
меняю boolean переменную и при выполнении
действий проверяю ее значение, а на OnKeyUp меняю
значение переменной назад. Так вот иногда при
работе получается что клавишу отпустил, а значение
переменной не изменилось и соответственно
функциональные действия остались как при нажатой клавише.
ПОДЕЛИТЕСЬ ОПЫТОМ ПО ЭТОМУ ВОПРОСУ.

← →
YT (2004-03-27 13:50) [1]

Пример
private
FKeyAlt:Boolean;

end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (ssAlt in Shift) Then FKeyAlt:=True;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
FKeyAlt:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If FKeyAlt Then Beep Else begin
Beep;
Sleep(1500);
Beep
end;
end;

← →
YT (2004-03-28 13:32) [2]

nil or ...

← →
Тимохов © (2004-03-28 13:37) [3]

почему бы не проверять нажати ли клавиша или нет непосредственно в начале события OnClick кнопки?

getkeystate

← →
YT (2004-03-29 12:25) [5]

Спасибо за советы.

Смена функциональности при нажатой клавише Найти похожие ветки