| rgstuamigo |
18-11-2009 20:38:16 |
Cita:
Empezado por Willo
(Mensaje 346908)
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...:)
|