¿Cómo puede Delphi obtener dinámicamente el valor de la colección TShiftState sin llamar a eventos del sistema como OnKeyUp y OnMouseUp?
Los parámetros de tiempo están incluidos y se pueden utilizar directamente, por ejemplo:
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X , Y: Entero);
procedimiento FormMouseMove(Remitente: TObject; Shift: TShiftState; X,
Y:
procedimiento FormMouseUp(Remitente); : Botón TObject: TMouseButton;
Mayús: TShiftState X, Y: Entero);