Fórum Como pegar a configuração de tela #181993

Prezado amigo:
A chave é esta.

Implementation
Const
ScreenWidth: LongInt = 800;
ScreenHeight: LongInt = 600;

Obs: Caso existam variáveis ou constantes declaradas em implementation, insira o código após elas.

No evento oncreate ou onactive do form inclua:
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;

Para saber a configuração atual pode usar, no form principal, com alt+f12 o seguinte código:
Left = 281
Top = 343
Width = 311
Height = 126
Caption = ´Form1´
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ´MS Sans Serif´
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 0
Top = 0
Width = 303
Height = 41
Align = alTop
Alignment = taCenter
AutoSize = False
Caption = ´´
Layout = tlCenter
end
object BitBtn1: TBitBtn
Left = 114
Top = 64
Width = 75
Height = 25
TabOrder = 0
Kind = bkClose
end

procedure TForm1.FormCreate(Sender: TObject);
begin
with Screen do
ShowMessage(´Screen.Height = ´+IntToStr(Height)+#1310+
´Screen.Width = ´ +IntToStr(Width)+1310 );
end;


MMTOOR2003

Ai cara valeu mesmo....... vou tentar ...

a uma coisa tem como também fazer com que a tela do monitor altere a sua resolução... tipo quando abrir a aplicação a tela va para 800X600 e depois que fechar ela volte para a que estava antes...???

grato