Como mover una ventana sin bordes

[SMTZ]

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

[roman]

Empezado por SMTZ

pero el problema que tiene es que luego no se pueden mostrar los popus.

¿A qué te refieres con esto?

// Saludos

[SMTZ]

Pues tengo una ventana que no tiene bordes y la quiero mover (normalmente las ventanas solo se pueden mover desde el titulo de la ventana pero si le he eliminado los bordes no existe el titulo). El caso es que encontre un truco que hace lo que quiero pero los menus en forma de popup no los muestra si implemento dicho truco.

Gracias por tu interes.

[roman]

Ya entiendo.

Prueba modificar el truco así:

Código Delphi [-]
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;

  if (Msg.Result = htClient) and (GetAsyncKeyState(VK_LBUTTON) <> 0) then
    Msg.Result := htCaption;
end;

De esta forma sólo permites el movimiento si el click es con el botón izquierdo y dejas el derecho libre.

// Saludos

[SMTZ]

Muchisimas gracias, era justo lo que estaba buscando.


Saludos.

[seduerey]

y como se quitan los bordes de las ventanas/formularios??

[andres1569]

Empezado por seduerey

y como se quitan los bordes de las ventanas/formularios??

Form.BorderStyle := bsNone;

[seduerey]

vale, es sencillo.... la proxima vez creo que probaré antes de preguntar... respuestas asi me hacen quedar como un tonto (no por ti, sino por mi, claro)

[sabroso]

Empezado por roman

Ya entiendo.

Prueba modificar el truco así:

Código Delphi [-]
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;

  if (Msg.Result = htClient) and (GetAsyncKeyState(VK_LBUTTON) <> 0) then
    Msg.Result := htCaption;
end;

De esta forma sólo permites el movimiento si el click es con el botón izquierdo y dejas el derecho libre.

// Saludos

Hola trate de implementar este codigo pero no funciona quizas le falta algo

[Casimiro Notevi]

Empezado por sabroso

Hola trate de implementar este codigo pero no funciona quizas le falta algo

Sí, puede que te falte algo.