Como mover una ventana sin bordes
Hola, ¿cómo puedo mover una ventana que no tiene bordes? En la web de trucomania he visto el siguiente truco pero el problema que tiene es que luego no se pueden mostrar los popus.
private
{ Private declarations }
//procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
Begin
inherited;
if Msg.Result = htClient then Msg.Result := htCaption;
End
|