Formulário

Delphi

29/04/2004

Pessoal !!!

Como faço para que em tempo de execução não seja permitido movimentar o formulário




Rogério


Rogeranalista

Rogeranalista

Curtidas 0

Respostas

Tatuweb

Tatuweb

29/04/2004

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.

// 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


GOSTEI 0
POSTAR