как мне узнать когда одновременно нажаты две клавиши

[vitalik007]

как мне узнать когда одновременно нажаты две клавиши(левая кнопка мыши и f12)

[Mad DeviL]

Через ASCI кодировку. Типа если ("код F12"=1(true))and("код LeftMouseKey"=1(true)) then "действие"
PS: Коды не помню, поэтому написал словами

[mihali4]

Решение "в лоб":

var MOUSEFLAG, F12FLAG: BOOLEAN; //глобальные

OnMouseDown:
if Button=mbLeft then
mouseflag:=True; //при запуске проги был установлен в False
if f12flag then
Label1.Caption:='Одновременно нажаты F12 и левая кнопка мышки';

OnMouseUp:
if Button=mbLeft then
begin
mouseflag:=False; 
Label1.Caption:='';
end;

OnKeyDown:
if key=VK_F12 then
f12flag:=True; //при запуске проги был установлен в False
if mouseflag then
Label1.Caption:='Одновременно нажаты F12 и левая кнопка мышки';

OnKeyUp:
if key=VK_F12 then
begin
f12flag:=False;
Label1.Caption:='';
end;

[Stilet]

Решение "По лбу"

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (button=mbleft)and(GetKeyState(VK_f 12)<>0) then
caption:='Нажаты мыша и F12'
end;

[mihali4]

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

Решение "По лбу"

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (button=mbleft)and(GetKeyState(VK_f 12)<>0) then
caption:='Нажаты мыша и F12'
end;

Для учеников нужно более развернуто

[Stilet]

Ладно, тогда пусть это будет для разнообразия и расширения, такскать, кругозора )

[vitalik007]

это я всё знаю так мне надо когда у меня нет формы

[mihali4]

Тогда лови WM_MOUSEDOWN и дальше, практически так же, как толково STILET подсказал...

[Virtson]

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

это я всё знаю так мне надо когда у меня нет формы

ну вобще.. а сразу трудно написать об этом.