![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
Ya encontre como moverlo es un truco aca va:
Debemos capturar los mensajes del ratón WM_NCHITTEST (Non Client Hit Test) y hacer creer a Windows que acabas de hacer clic sobre el título, aunque lo hagas en el interior de la ventana: type TForm1 = class(TForm) .......... private procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST; .......... end; y en la parte implementation: procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest); begin inherited; if Msg.Result = htClient then Msg.Result := htCaption; end; y si señor de que se mueve se mueve jeje |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|