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:

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;