FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
#2
|
||||
|
||||
ok lo probare
|
#3
|
||||
|
||||
var OrgFormPoint, CurCursorPoint, OrgCursorPoint: TPoint;
y donde quieres que el usuario mantenga el boton para arrestrar la ventana OrgFormPoint.X := Left; OrgFormPoint.Y := Top; GetCursorpos(OrgCursorPoint); While (GetAsyncKeystate(VK_LBUTTON) <> 0) do begin GetCursorpos(CurCursorPoint); Left := OrgFormPoint.X - OrgCursorPoint.X + CurCursorPoint.X; Top := OrgFormPoint.Y - OrgCursorPoint.Y + CurCursorPoint.Y; //Application.processmessages; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Modificar borde de groupbox | Albano | OOP | 2 | 30-03-2007 00:09:47 |
Como mover una ToolBar | Javi2 | Varios | 0 | 28-02-2005 09:28:06 |
Impedir mover el form y redimensionar al mover barra tareas | jealousy | API de Windows | 0 | 15-06-2004 12:58:05 |
Como mover una ventana??? | cone220 | Varios | 3 | 01-06-2004 23:04:09 |
Borde de un Timage | NuncaMas | Gráficos | 2 | 06-12-2003 10:03:03 |
|