Outra Difícil

[Guest XinXanXun]

Olá pessoal!

Será que alguém saberia como deixar um form imóvel na tela em Delphi?

O usuário não pode mover o form.

Obrigado !!!

[Corposemalma]

EU vi isso em um lugar... Se não me engano era em http://www.delphi.eti.br/

Mas eles estao com problema e ta fora do ar....

[DELPHI-Man32]

ESTE PRIMEIRO, MOVE O FORM, MAS NÃO DEIZA SAIR DA ÁREA DA TELA!

- Na seção Private declare a procedure abaixo:

private

procedure WMMove(var Msg: TWMMove); message WM_MOVE;

- Abaixo da palavra implementation escreva a procedure abaixo:

procedure TForm1.WMMove(var Msg: TWMMove);

begin

if Left < 0 then

Left := 0;

if Top < 0 then

Top := 0;

if Screen.Width - (Left + Width) < 0 then

Left := Screen.Width - Width;

if Screen.Height - (Top + Height) < 0 then

Top := Screen.Height - Height;

end;

Para testar:

- Execute o programa e tente arrastar o form

para fora das margens da tela e veja o que acontece.

-----------------------------------------

ESTE CENTRALIZA O FORM NO DESKTOP!

var

r : TRect;

osv : TOSVersionInfo;

begin

osv.EdwOSVersionInfoSize := sizeof(osv);

GetVersionEx(osv);

if osv.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then

begin

SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);

Left := ((r.right - r.left) - Width) div 2;

Top := ((r.bottom - r.top) - Height) div 2;

end

else

begin

Left := (GetSystemMetrics(SM_CXSCREEN) - Width) div 2;

Top := (GetSystemMetrics(SM_CYSCREEN) - Height) div 2;

end;

end;

VEJA SE SERVEM PRA VC!

abraços, VAGNER.