Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

1[tutorial] programa delphi fullscreen Empty [tutorial] programa delphi fullscreen Sáb Jun 07, 2014 1:36 am

Moedas Moedas : 201
Mensagens Mensagens : 92
Humor Humor : *-*
Reputação Reputação : 5
Quebra de regras:
[tutorial] programa delphi fullscreen Left_bar_bleue0 / 1000 / 100[tutorial] programa delphi fullscreen Right_bar_bleue

hacker fts315

hacker fts315

Moderador Informática

Moderador Informática

e ae galera sem nada pra fazer aq entao vou fazer esse micro mini hyper pequeno minusculo tutorial, nesse tuto vou ensinar como deixar seu programa delphi em fullscreen, va no object inspector do form principal depois evento e por fim de dois cliques no oncreate, vai gerar um codigo parecido com esse

Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
end;

o procedimento acima vai abrir o programa ja em fullscreen, dentro do escopo begin e end mudamos o atributo top e left para 0 para deixar o form no canto superior esquerdo

Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
   Form1.Top := 0;
   Form1.Left := 0;
end;

agora usamos colocamos o tamanho maximo nos atributos width e height, porem eu Nonono faço a minima ideia qual é o tamanho maximo dessa bagaça entao vamos usar o screen.width e screen.height e atribuir eles

Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
   Form1.Top := 0;
   Form1.Left := 0;
   Form1.Width := Screen.Width;
   Form1.Height := Screen.Height;
end;

quase deu certo a maldita barra do iniciar fica em cima, para mudar isso va denovo no object inspector form1 e procure BorderStyle mude ele para none, ou coloque o codigo equivalente

Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
   Form1.Top := 0;
   Form1.Left := 0;
   Form1.Width := Screen.Width;
   Form1.Height := Screen.Height;
   Form1.BorderStyle := bsNone;
end;

agora quando executar vai ficar o form por cima de tudo, ai é so fazer oque vcs quiser no caso coloquei um label e um button (fico tudo cinza ate parece que fiz essa bagaça no paint kkkkkkkkk)

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

um outro que eu ja tinha feito para broquear o desktop ^^

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

by kõdo no kami

https://www.facebook.com/hacker.fts315

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos