Ver Mensaje Individual
  #2  
Antiguo 18-11-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

Cita:
Empezado por Willo Ver Mensaje
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...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7

Última edición por rgstuamigo fecha: 18-11-2009 a las 20:45:25. Razón: Estética
Responder Con Cita