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