GARANTIR DESCONTO

Fórum Só abri em 800 x 600 #258456

15/11/2004

0

Galera, como faço pra meu programa soh abrir quando a resolução do video for 800 x 600?!

Obrigado!!!


Tremonti

Tremonti

Responder

Posts

15/11/2004

Keitarosan

Pq você nao verifica a resolução assim que está abrindo? :wink:

Tipo:
if not ((screen.width = 800) and (screen.height = 600)) then
  application.terminate;


Pronto, isso resolveria, certo?!


Responder

Gostei + 0

15/11/2004

Joao_schroeder

Olá!
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;


Responder

Gostei + 0

15/11/2004

Tremonti

Valew Galera, vcs sao 10

Nao testei, mas acredito que funcione

Obrigado!!!


Responder

Gostei + 0

16/11/2004

Tremonti

Cara, me envia os docs sim

Meu e-mail eh

fernando_tremonti@hotmail.com

falow ae valew


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar