Tela de Splash

1ªAbra o Delphi 7 ou 6

2ªAdicione um Timer na paleta ''System'' e adicione 1 image na paleta ''Additional'' coloque dentro do form

3ª agora clique no Form e configure da seguinte forma
 BorderStyle : bsNone


4ª Agora vá em Picture e seleccione a imagen do seu gosto

5ª Se sua imagen ficar assim configure o componente imagen  assim
Image1
Align : alClient
Stretch : True
Agora veja se ficou assim depois das configurações

6ª Agora só ajuste o Form aumente  diminua ajuste Depois disso Adicione um Gauge na paleta (Samples)
e coloque em um lugar que vc queira

7ªagora vamos aos códigos clique duas vezes no Timer1 e coloque
Timer1
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Gaunge1 para carregar o Gaunge1
Gauge1.Progress:=10;
Sleep(500);
Gauge1.Progress:=20;
Sleep(500);
Gauge1.Progress:=30;
Sleep(500);
Gauge1.Progress:=40;
Sleep(500);
Gauge1.Progress:=50;
Sleep(500);
Gauge1.Progress:=60;
Sleep(500);
Gauge1.Progress:=75;
Sleep(500);
Gauge1.Progress:=90;
Sleep(500);
Gauge1.Progress:=100;
Sleep(200);
//Form Executar E destrui
Form2.Show;
Form1.Destroy;
end;

8ª o código assima ele Carrega o Gauge (A barrinha)

9ª agora veja se carrego normal

10ª pronto se vc quiser coloque uma tela de login no Form2


obs: se dar errado me add no msn ou mande email Dhionathans_Felix@hotmail.com

Programa para ver IP

1ª Abra o Delphi 7 ou 6

2ªAdicione:
1 Edit
2 Button  ou BitBtn
1 IdIPWatch1 (Na aba Indy Misc)

3ª Configuere da seguinte forma
edit 1 :
Text : Seu IP
BitBtn1 ou Button1 :
Caption :Ver Agora
BitBtn2 ou BitBtn2 :
Caption : cancelar
IdIPWatch1:
Name : IP 

4ª clique duas vees no BitBtn 1 (Bota que ta escrito Ver Agora) coloque este pequeno comando
 procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text := IP.LocalIP; \\ Para mostrar seu IP
end;

end.
  

5ª No BitBtn 2 (Botao que ta escrito Cancelar) Coloque este comando
 procedure TForm1.BitBtn2Click(Sender: TObject);
begin;
Halt ; \\ Ou vc pode colocar Form1.Close;

end;

end.

6ª Agora e Compilar e ser Feliz hehehe (Veja se quando vc conpilo e clico em Ver agora apareceu o IP ).

veja quando vc clico mostro seu IP

 vlw pessoal ate a proxima qualquer duvida me add no msn Dhionathans_felix@hotmail.com

Como Fazer Tela De Login

1ª Abra o delphi 7 ou 6

2ª Vá na Barra STANDARD e insira 2 label 2 edits e 2 buttons e1IdIPWatch1  ou bitbtn e UM novo Form

3ª configura os seguintes componentes
 IdIPWatch1
Name: IP
 Label 1 configure o caption
  Caption : Usuário
 Label 2 configure o caption
  Caption : Senha
 Edit Configure o Text (Estará la no final da propriedades)
  Text : 'Nao coloque nada'
edit 2
Text : 'nada'
PasswordChar : *

 Bitbtn1 Ou Buton
 Caption : Logar
Bitbtn 2
Caption : Cancelar


4ª agora e a parte boa do negocio hehehe clique duas vezes no BitBtn 1 (Logar)
 Coloque o seguinte comando

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If (Edit1.text = 'Usuario_Desejado') AND (Edit2.text = 'Senha_desejada') then
Form2.Show
else
ShowMessage('Login e Senha não são Validos');
end;end;

end.
e no form 2 vai no events e clique duas vezes em cima do evento onShow

e colo que o comando
procedure TForm3.FormShow(Sender: TObject);
begin
Form1.Destroy;
end;


5ª clique duas vezes no bitbtn 2 e coloque este comando:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
halt;
end;

end.

6ª pessoal se da esta mensagem quando vc for compilar

clique em sim e não e erro








7ª pronto compile






Obs :coloque no edit1 o seu usuário que vc  coloca no comando

if edit1.Text = 'usuario desejado' if then edit2.Text = 'Senha desejada' then ShowMessage ('Bem Vindo');

e no edit2 sua senha

exemplo:

Obs:coloque da mesma forma que vc coloco no comando que eu passei a todos ex: if edit1.text = 'Test' then if Edi2.text = 'Abc'
Onde tiver letra maiúscula vc tem que coloca também na hora do login 
 entende se não entendeu manda email
 meu email e : Dhionathans_felix@hotmail.com
 VLW