[Delphi] Form na tela toda e acima de tudo (até do iniciar)

[DragonBoss 8]

Aee galeraa.. to trazendo pra vcs uma dicaa bem legal...

Ao fim desse tutorial, vcs vao conseguir fazer o seu programa fikar acima de qualker outro ( e acima do iniciar do windows), alem dele ocupar a tela toda...

 

Bom.. vamos laa:

 

Primeiro.. vamos no nosso Form e vamos mudar a propriedade Align (alinhamento) para ALTOP ( para assim ke ele for aberto, ele subir ao topo da tela ).

Agora, vamos no evento "onCreate" do nosso form e vamos por o seguinte codigo:

 

SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);

form1.Height:=screen.height;

form1.Width:=screen.Width;

 

Explikando: assim que o form for aberto, ele vai fikar no topo da tela, e vai pegar as dimensoes da tela.. e esse codigo, tbm vai deixa-lo acima de qualker outro programa.

 

OBS: caso queiram , podem colokar esse codigo em um button, pra ele tirar o form acima de tudo, assim, vc pode abrir um programa por cima dele , o codigo eh este:

 

SetWindowPos(Form1.handle, HWND_NOTOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);

 

Simples assim...

 

OBS: nao sei se eh o melhor metodo.. mas foi uma forma ke axei pro seu programa fikar acima de tudo, e na tela toda...

 

OBS2: vcs podem tirar os BorderIcons do form, pra pessoa nao maximizar o form.. alem de mudar a BorderStyle, dexando em BSnone ( assim nao fika o fechar, minimizar e maximizar do windows );

 

Creditos:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Espero que tenham gostado...

 

flw, abraços...

[josue1602 0]

Aew Oq Eu Tava Procurando Pro Meu Projeto xD.

Só Uma Dica Desse Jeito Que Tah O Codigo Ele So Ocupa A Tela Toda Quando Não Está Maximizado

Ai Eu Colocei Mais Esse Codigo Olha Só:

form1.WindowState := (wsNormal);

SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);

form1.Height:=screen.height;

form1.Width:=screen.Width;

 

e Pra Voltar Ao Normal

form1.WindowState := (wsMaximized);

SetWindowPos(Form1.handle, HWND_NOTOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);

 

Assim Quando Ele Tah Maximizado Ele Restaura e Ocupada A Tela Enteira xD.

 

Quando Termina Meu Projeto Vo Postar Aki Com Esses Seus Code xD.

[DragonBoss 8]

visando isso ke puiz essa observaçao:

 

OBS2: vcs podem tirar os BorderIcons do form, pra pessoa nao maximizar o form.. alem de mudar a BorderStyle, dexando em BSnone ( assim nao fika o fechar, minimizar e maximizar do windows );

 

sem a borda do sistema, seu programa todo fika visivel na tela u_U, mas eh isso mesmo, se for maximizado, ele altera o espaço ke ocupa na tela.... porem, ainda acho mais viavel tirar as bordas, ae da pra vc mesmo criar um botao pra fechar a aplicaçao '-'.... bom, dei a dica, fika ae a ideia de vcs de como usar =]

 

flw

[atirador_FN 0]

cara muito bom acredita que acabei de entrar para perguntar isso?:eek: salvou meus dedos :padhsuasuhdhus:D