![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#4
|
|||
|
|||
|
OK lo hare sencillo:
Código:
var
MousePos: TPoint;
Image: TImage;
...
Image:= TImage.Create(self);
Image.Parent:= ScrollBox1;
...
Evento MouseMove
var
P: TPoint;
begin
GetCursorPos(P);
if ssLeft in Shift then
with (Sender as TImage) do
begin
Top:= Top + (P.Y - MousePos.Y);
Left:= Left + (P.X - MousePos.X);
end;
MousePos:= P;
|
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Formularios MDI Child - Efecto Visual | Neeruu | Varios | 0 | 19-04-2008 19:50:58 |
| Efecto visual DBGrid | Minio | Varios | 29 | 03-03-2008 19:26:54 |
| Parent, ParentWindow, objetos y el error Control has no parent Window | dec | Varios | 18 | 07-08-2007 15:02:01 |
| Traspaso de datos de archivos dat (visual basic) creo a paradox | Vero_rm80 | Conexión con bases de datos | 12 | 28-08-2006 14:46:34 |
| MDIChild: Efecto visual indeseado | Mauro.NET | OOP | 1 | 12-06-2005 16:37:22 |
|