conflicto drag y ondoubleclick

[JoseQ]

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]

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

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

// Saludos

[JoseQ]

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

[roman]

Empezado por JoseQ

pero, pierdo el oncontextpopup....

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

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