Maximizar janela sem borda no delphi!
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
no OnMouseDown do panel de titulo
desde já agradeço
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
Curtidas 0