![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#6
|
|||
|
|||
|
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 |
|
|
|