Fórum Formulário #228937
29/04/2004
0
Pessoal !!!
Como faço para que em tempo de execução não seja permitido movimentar o formulário
Rogério
Como faço para que em tempo de execução não seja permitido movimentar o formulário
Rogério
Rogeranalista
Curtir tópico
+ 0
Responder
Posts
30/04/2004
Tatuweb
Roger,
Se o form ocupar toda a tela você pode simplesmente setar a propriedade [b:f08574ee74]Align [/b:f08574ee74]do form para [b:f08574ee74]AlClient[/b:f08574ee74]. Desse modo o form não será movimentado.
Se o form não ocupar toda a tela implemente a rotina abaixo. No exemplo o form ficará fixo no centro da tela.
É isso aí... :P
Se o form ocupar toda a tela você pode simplesmente setar a propriedade [b:f08574ee74]Align [/b:f08574ee74]do form para [b:f08574ee74]AlClient[/b:f08574ee74]. Desse modo o form não será movimentado.
Se o form não ocupar toda a tela implemente a rotina abaixo. No exemplo o form ficará fixo no centro da tela.
// Declare a rotina abaixo na seção private do form
procedure FormMove (var Msg: TWMMove); message WM_MOVE;
// e na implementação faça
procedure TForm1.FormMove (var Msg: TWMMove);
begin
Form1.Left := (Screen.Width - Form1.Width) div 2;
Form1.Top := (Screen.Height - Form1.Height) div 2;
end;
É isso aí... :P
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)