Maximizar janela sem borda no delphi!

15/07/2021

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

Wanderson Cardoso

Curtir t�pico + 0

Responder