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

[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;