Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-05-2016
Ramsay Ramsay is offline
Miembro
NULL
 
Registrado: ene 2016
Posts: 104
Poder: 9
Ramsay Va por buen camino
Mantener click izquierdo

Me ha gustado el codigo de este truco : http://www.clubdelphi.com/foros/showthread.php?t=80410 , ¿ se podria hacer un codigo para mantener el click izquierdo por un rato (5 segundos y despues soltar) , intente con un timer de click izquierdos pero no es lo mismo , ¿ como deberia hacerlo ?
Responder Con Cita
  #2  
Antiguo 24-05-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 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
Hola.

Un ejemplo con un TButton, dos TLabel y un TSpeedButton para resaltar el mouse presionado:
Código Delphi [-]
...
implementation

const
  BTLEFTDOWN = 0;
  BTLEFTUP   = 1;

procedure ButtonLeftAction(DownUp: Integer);
var
  si: array [0..1] of TInput;
begin
  FillChar(si, SizeOf(si), 0);
  si[0].Itype      := INPUT_MOUSE;
  si[0].mi.dwFlags := MOUSEEVENTF_LEFTDOWN;
  si[1].Itype      := INPUT_MOUSE;
  si[1].mi.dwFlags := MOUSEEVENTF_LEFTUP;
  Windows.SendInput(1, tagINPUT(si[DownUp]), SizeOf(TInput));
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled  := False;
  Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(FCount);
  Label2.Caption := Format('%d',[FCount]);
  if FCount = 5 then
  begin
    ButtonLeftAction(BTLEFTUP);
    Label1.Caption := 'Botón izquierdo liberado';
    Timer1.Enabled := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TPoint;
  sp: TSpeedButton;
begin
  sp := SpeedButton1;
  p  := ClientToScreen(Point(sp.Left + 5, sp.Top + 5));
  SetCursorPos(p.X, p.Y);
  ButtonLeftAction(BTLEFTDOWN);
  Label1.Caption  := 'Botón izquierdo presionado';
  Label2.Caption  := '';
  FCount          := 0;  // ( Variable privada de Form1 )
  Timer1.Enabled  := True;
end;

Vista:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 25-05-2016
Ramsay Ramsay is offline
Miembro
NULL
 
Registrado: ene 2016
Posts: 104
Poder: 9
Ramsay Va por buen camino
Gracias por la ayuda ecfisa.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Derectar Ctrl-Click o Alt-click Willo Varios 2 18-11-2009 21:55:55
Popup en el botón izquierdo del ratón Peri Varios 4 30-07-2008 17:08:21
Simular un clic en los botones (izquierdo, central y derecho) del ratón dec Trucos 0 07-06-2006 20:30:11
implmentar Articulo click..click..run Crash ASAPLTDA OOP 0 21-01-2006 17:16:08
Click...click. tap. RUN? Crash! Un mejor RAD mamcx Conexión con bases de datos 0 13-04-2005 21:45:35


La franja horaria es GMT +2. Ahora son las 06:34:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi