Простая тема!

← →
Le! (2003-01-22 08:05) [0]

Народ как узнать нажатали клавиша после нажатия какой нибудь другой?

← →
diks (2003-01-22 08:31) [1]

Тоесть? Это как нажимаешь одну а нажимается другая?

← →
Le! (2003-01-22 08:35) [2]

Нет. Я нажимаю одну, держу ее и в это время нажимаю другую. Вот как узнать нажата ли ещё первая?

← →
Спрашивающий (2003-01-22 09:03) [3]

Топорно но работает
var
Form1: TForm1;
Nagata:Boolean;
implementation

{$R *.DFM}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=vk_F1 Then Nagata:=True;
If (Key=vk_F2) and (Nagata=True) Then Form1.Caption:="F1 еще нажата" Else Form1.Caption:="F1 не нажата";
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=vk_F1 Then Nagata:=False;
end;

end.

← →
Севостьянов Игорь (2003-01-22 13:54) [4]

Ага только это не подойдет для всяких там Alt Ctrl Del Shift

← →
mrcat (2003-01-22 13:56) [5]

Le! (22.01.03 08:05)
Народ как узнать нажатали клавиша после нажатия какой нибудь другой?

отслеживайте состояние TShiftState

Простая тема! Найти похожие ветки