Fórum Só abri em 800 x 600 #258456
15/11/2004
0
Obrigado!!!
Tremonti
Curtir tópico
+ 0Posts
15/11/2004
Keitarosan
Tipo:
if not ((screen.width = 800) and (screen.height = 600)) then application.terminate;
Pronto, isso resolveria, certo?!
Gostei + 0
15/11/2004
Joao_schroeder
tudo bem?
Estou querendo fazer a mesma coisa. Peguei nos últimos dias algumas dicas para fazer isto. Testei, funcionou, mas também deu problema e não tive tempo para testar melhor. Mas vou lhe dizer onde pegar o que eu consegui.
Abaixo está uma dica para descobrir em que resolução está para poder voltar ao normal.
No www.activedelphi.com.br tem um artigo que ensina como trocar a resolução e tem um outro que parece melhor no www.delphi.about.com
Se quiseres eu posso te enviar os .doc por e-mail para ti.
Um abraço
João Schroeder
Coloque um TButton no Form e altere o evento
OnClick deste botão como abaixo:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(´Largura: ´ + IntToStr(Screen.Width) + #13 +
´Altura: ´ + IntToStr(Screen.Height));
end;
Gostei + 0
15/11/2004
Tremonti
Nao testei, mas acredito que funcione
Obrigado!!!
Gostei + 0
16/11/2004
Tremonti
Meu e-mail eh
fernando_tremonti@hotmail.com
falow ae valew
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)