Maximizar janela sem borda no delphi!

15/07/2021

5

Uso um monitor auxiliar queria saber como faço para maximizar um programa que fiz em delphi na tela secundaria, como ele não tem borda fiz um método para arrastar ele!
ai eu consigo mover de uma tela para outra mais quando maximizo ele volta para a tela principal!

segue o código para arrastar o form

procedure MovimentaObject(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer;Formulario:TForm);
var ObjectPos,MousePosMov:TPoint;Pt:TPoint;fHandle:HWND;
begin
  GetCursorPos(Pt);
  ObjectPos.X:=Formulario.Left;
  ObjectPos.Y:=Formulario.Top;
  if(Sender is TForm)then
    fHandle:=TWinControl(Sender).Handle
  else
    fHandle:=TWinControl(Sender).Parent.Handle;
  while DragDetect(fHandle,ObjectPos) do
  begin
    GetCursorPos(MousePosMov);
    Formulario.Left:=MousePosMov.X-X-3;
    Formulario.Top:=MousePosMov.Y-Y-3;
    Application.ProcessMessages;
  end;
end;


no OnMouseDown do panel de titulo

MovimentaObject(sender,button,shift,x,y,Form1);


desde já agradeço
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar