Como mover una ventana sin bordes

[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 Noteví]

Empezado por sabroso

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

Sí, puede que te falte algo.