Só abri em 800 x 600
Galera, como faço pra meu programa soh abrir quando a resolução do video for 800 x 600?!
Obrigado!!!
Obrigado!!!
Tremonti
Curtidas 0
Respostas
Keitarosan
15/11/2004
Pq você nao verifica a resolução assim que está abrindo? :wink:
Tipo:
Pronto, isso resolveria, certo?!
Tipo:
if not ((screen.width = 800) and (screen.height = 600)) then application.terminate;
Pronto, isso resolveria, certo?!
GOSTEI 0
Joao_schroeder
15/11/2004
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;
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
Tremonti
15/11/2004
Valew Galera, vcs sao 10
Nao testei, mas acredito que funcione
Obrigado!!!
Nao testei, mas acredito que funcione
Obrigado!!!
GOSTEI 0
Tremonti
15/11/2004
Cara, me envia os docs sim
Meu e-mail eh
fernando_tremonti@hotmail.com
falow ae valew
Meu e-mail eh
fernando_tremonti@hotmail.com
falow ae valew
GOSTEI 0