Como mover o Form sem a barra de titulo no FMX? queria criar uma nova barra de titulos.
29/06/2018
0
No caso, iria retirar a barra de titulos e criar uma nova toda personalizada pra ficar mais bonito o aplicativo, iria colocar um panel com alguns botoes de fechar e minimizar e arrastar somente no painel para mover o aplicativo.
Bruno Garcia
Curtir tópico
+ 0
Responder
Post mais votado
29/06/2018
Declare :
uses
FMX.Platform.Win,
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
Self.StartWindowDrag;
end;
end.
uses
FMX.Platform.Win,
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
Self.StartWindowDrag;
end;
end.
Raimundo Pereira
Responder
Mais Posts
29/06/2018
Raimundo Pereira
Veja um exemplo :
No border style do seu form deixe >> bsNone
No seu panel desejado >> no evento
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MovimentaObject(sender,button,shift,x,y,Form1);
end;
Você pode adaptar mais coisas, duplo click ele verifica se está maximizado e minimizar...
O céu é o limite
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 border style do seu form deixe >> bsNone
No seu panel desejado >> no evento
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MovimentaObject(sender,button,shift,x,y,Form1);
end;
Você pode adaptar mais coisas, duplo click ele verifica se está maximizado e minimizar...
O céu é o limite
Responder
29/06/2018
Bruno Garcia
Tentei colocar esse
mas da erro, só pra lembrar, estou no FMX.
MovimentaObject(sender,button,shift,x,y,Form1);
mas da erro, só pra lembrar, estou no FMX.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
