Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 30-11-2004
Jan_polero Jan_polero is offline
Miembro
 
Registrado: may 2004
Posts: 62
Poder: 23
Jan_polero Va por buen camino
Vaya,lo siento...jeje.Pues el código va en 3 eventos:

Lo que hace esto es permitir mover Imagenes por el form.Pero hay algunas cosas que no sé que son,como por ejemplo MouseDownSpot o ReleaseCapture(que aunque resulta obvio que suelta la captura desconozco qué es).

//CODIGO DELPHI//
Código Delphi [-]
 Capturing : boolean;
 
 procedure TFInventario.Image1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   Capturing := true;
   MouseDownSpot.X := x;//TImage(Sender).Left -1;
   MouseDownSpot.Y := y;//TImage(Sender).Top  -1;
 end;
  
  
 procedure TFInventario.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
 begin
   if Capturing then
   begin
   TImage(Sender).Left := TImage(Sender).Left - (MouseDownSpot.x - x);
   TImage(Sender).Top := TImage(Sender).Top - (MouseDownSpot.y - y);
   end;
 end;
  
 
 procedure TFInventario.Image1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   if Capturing then 
     begin
     ReleaseCapture;
     Capturing := false;
     TImage(Sender).Left := TImage(Sender).Left - (MouseDownSpot.x - x);
     TImage(Sender).Top := TImage(Sender).Top - (MouseDownSpot.y - y);
     end;
end;
//FIN CODIGO DELPHI//

Ese es el código.Lo que quiero hacer es que cuando se seleccione una imagen se cree una copia y sea la copia la que se mueva.Por ello debo saber lo que hace.Por ello cualquier ayuda es buena.Muchas gracias de antemano.

Última edición por marcoszorrilla fecha: 30-11-2004 a las 23:12:44. Razón: Añadir etiquetas Delphi
Responder Con Cita
 



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


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


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