Ajuste na resolução do Monitor

Delphi

12/10/2006

Boa Tarde Pessoal.

Existe alguma propriedade ou função onde eu possa fazer com que o meus sistema de auto-ajuste na resolução do monitor seja ele 800x600 ou 1024x768 ou superior.

Abraço

Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Ricardo_ascii

Ricardo_ascii

12/10/2006

No evento on create do form coloque:

var
ScreenWidth : LongInt=640;
ScreenHeight : LongInt=480;
begin

scaled:=true;
if (screen.width <> screenWidth) then
begin
height := longInt(height) * longInt(screen.Height) div ScreenHeight;
width := longInt(width) * longInt(screen.Width) div ScreenWidth;
scaleBy(screen.width,ScreenWidth);
end;
end;


GOSTEI 0
POSTAR