Bei dem Ereignis DblClick abfragen ob SHIFT gedrückt ist ?

[HolgerCW]

Hallo zusammen,

wie kann ich in dem DBLClick Ereignis abfragen, ob der Anwender die SHIFT-Taste gedrückt hält ?

Gruss

Holger

[Fussball-Robby]

Mittels GetAsyncKeyState:

Delphi-Quellcode:

procedure TForm1.FormDblClick(Sender: TObject);
begin
  if GetAsyncKeyState(vk_Shift) < 0 then
    ShowMessage('Shift gedrückt!')
  else
    ShowMessage('Shift nicht gedrückt!');
end;

[HolgerCW]

Das ist ja super.

Und wie könnte ich in dem KeyPress Ereignis abfragen ob Shift gedrückt wurde, denn Key = VK_SHIFT geht nciht ?

[Fussball-Robby]

Probier das mal im OnKeyDown.

[HolgerCW]

Funktioniert. Danke.