Derectar Ctrl-Click o Alt-click

[Willo]

Buen dia a todos;

sabe alguien como puedo detectar si el usuario hace click en algun componente o en la forma, mientras mantiene presionada la tecla CTRL o ALT?

Gracias de antemano por sus comentarios

[rgstuamigo]

Empezado por Willo

Buen dia a todos;

sabe alguien como puedo detectar si el usuario hace click en algun componente o en la forma, mientras mantiene presionada la tecla CTRL o ALT?

Gracias de antemano por sus comentarios

Pues deberias utilizar el evento OnMouseUp o OnMouseDown de cada uno de tus componentes ,e incluso de tu formulario y poner mas o menos este código:

Código Delphi [-]
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ((ssCtrl in Shift)and(ssAlt in Shift)and(Button=mbLeft)) then
     ShowMessage('Se ha presiona CTRL+ALT+Click_Izquierdo en un '+Sender.ClassName);
end;

Para ahorrate codigo podrias hacer un solo procedimiento que tenga los mismo parametros y luego asignarselo a cada evento OnMouseUp de todos los componentes y formulario.
Saludos...

[rgstuamigo]

Viendo o repasando tu pregunta veo que solo quieres que sea Alt+Click ó Ctrl+Click pues en ese caso solo cambia la condicion:

Código Delphi [-]
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssCtrl in Shift)and(Button=mbLeft) then
     ShowMessage('Se ha presiona CTRL+Click_Izquierdo en un '+Sender.ClassName)
  else
  if (ssAlt in Shift)and(Button=mbLeft)then
     ShowMessage('Se ha presiona ALT+Click_Izquierdo en un '+Sender.ClassName);
end;

Saludos...