Ver Mensaje Individual
  #6  
Antiguo 12-05-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por darkmaster360 Ver Mensaje
...
¿habría alguna forma ahora de decirle a un timer que clickee en esas coordenadas?
Hola.

Si, agregando el código de tu primer mensaje:
Código Delphi [-]
implementation

var
  MousePos : TPoint;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SetCursorPos(MousePos.X, MousePos.Y);
  Mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
  Mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  MSG = 'Coordenadas actuales del mouse: %d %d'; 
begin
  if (ssCtrl in Shift) and (Key = VK_F1) then  // Ctrl+F1
    MousePos := Mouse.CursorPos;
  Caption := Format(MSG,[MousePos.X, MousePos.Y]); 
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita