doble click con shift apretado o similar

[emeceuy]

hola... consulta: se como hacer que si apreto una tecla como ENTER parado en un edit (por ejemplo), se dispare un evento... pero lo que necesito es al dar doble click que se dispare un evento "A" utilizando el evento OnDblClick clasico, pero que se dispare un evento "B" al dar doble click y que ademas esté apretada la tecla shift, o control, o alt...

supongo que se debe poder hacer un if o case dentro del evento onclick y chequear si esas teclas están apretadas, pero no tengo idea como se hace... se puede? alguien me podría decir bien como es? o pasar un codigo? o hay otra manera mas "prolija" de hacerlo?

salu2 y muchas gracias !!!

Marcelo

[[seoane]]

Prueba con esto:

Código Delphi [-]
procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  if GetKeyState(VK_LSHIFT) < 0 then
  begin
    ShowMessage('La tecla shift izquierda esta pulsada');
  end else
    ShowMessage('La tecla shift izquierda NO esta pulsada');
end;