Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   conflicto drag y ondoubleclick (https://www.clubdelphi.com/foros/showthread.php?t=14548)

JoseQ 23-09-2004 18:05:30

conflicto drag y ondoubleclick
 
Buenas, tengo un Timage del cual me interesa q sucedan dos cosas, en el evento onclick que la propiedad dragmode se ponga a dmautomatic, y en el dblclick ke me ejecute un programa, hasta aki todo sencillo, xo al hacer click sobre la imagen el modo dragmode se activa y entonces ya no me responde a doble click, alguna sugerencia ??¿¿¿

roman 23-09-2004 20:41:56

No uses DragMode sino BeginDrag y hazlo en el evento MouseDown:

Código Delphi [-]
procedure Image1MouseDown(...);
begin
  Image1.BeginDrag(false, 5);
end;

// Saludos

JoseQ 24-09-2004 17:37:53

ia probe, funciona bien, pero, pierdo el oncontextpopup....

roman 24-09-2004 17:58:42

Cita:

Empezado por JoseQ
pero, pierdo el oncontextpopup....

¡Pobre botón! ¡La cantidad de cosas que debe hacer! :D

Lo que pasa es que en el evento OnMouseDown hay que verificar que el botón oprimido sea el izquierdo:

Código Delphi [-]
if Button = mbLeft then
 Image1.BeginDrag(false, 5);

De esta manera sólo podrás arrastrar la imagen con el botón izquierdo y dejas libre el derecho para el menú contextual.

// Saludos


La franja horaria es GMT +2. Ahora son las 04:41:18.

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