[Tutorial Delphi]Alguns Tutos Básicos,Mais Utilizaveis!

[SNLM 0]

 

 

 

Olá hoje venho trazer a vocês alguns tutoriais básicos de Delphi !

 

1°

 

 

Como criar um Form redondo?

Primeiramente vocês irão abrir o Delphi, em seguida clique 2x na sua Form,irá abrir a Unit,então apague o begin e escreva isso !

 

var Hd : THandle;

 

begin

 

Hd := CreateEllipticRgn(0,0,400,400);

 

SetWindowRgn(Handle,Hd,True);

 

end;

Ficando Assim !

 

Vá em File e depois em ''Salve All'' e depois dê um F9

Simples,Não?

 

2°

 

Como criar um gerador de cash !

 

Primeiramente abra o Delphi,em seguida ajuste o tamanho que você preferir,recomendo esse tamanho

 

Adicione ''2 Buttons,e 2 Edits''

 

Ficando Assim !

 

Ajeite os nomes conforme o seu gosto,os lugares onde os Buttons e os Edits ficaram,fica ao seu critério!

 

Agora você colocara o nome do seu ''Gerador'',vá na aba Standard e adicione uma label.

va em Caption e mude o nome para o qual você quiser.

EX:Gerador Do Mano Rap,Gerador Web Cheats 5.0

 

Fica ao seu gosto.

 

Após escolher o nome do seu gerador,clique em fonte,vai ter três pontinhos,clique e configure a letra do seu Gerador

Ficando Assim!

Agora dê OK

Ficando Assim !

 

Agora vamos CODAR?

Clique 2x vezes em Numero do Cartão,apague o begin e os 2 end's (end; e end.)

 

E coloque o Code!

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=16;

begin

Edit1.Text:='';

for i:=1 to max do

begin

Edit1.Text:=Edit1.Text+str[random(length(str))+1];

end;

end;

Ficando Assim !

Agora clique 2x em PIN e adicione o código abaixo !

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=10;

begin

Edit2.Text:='';

for i:=1 to max do

begin

Edit2.Text:=Edit2.Text+str[random(length(str))+1];

end;

end;

Ficando Assim !

 

Agora vamos colocar uma barra que indentifique ainda mais quem fez o Gerador (Ou outro programa)

 

Vá na aba Win32 e adicione um StatusBar

 

Redimensione ele na parte debaixo do programa

 

Ficando Assim !

Agora vá em Object Inpestor e procure por Panels,clique em três pontinhos para configurar o StatusBar.

 

Depois clique em Add New (Ins)

 

Vai aparecer 7 opções,clique em Text e coloque o texto a ser exibido no StatusBar.

 

Ficando Assim !

Vamos deixar o seu Gerador com a cara do XP?

 

Vá na aba Win32 e procure por XPManifest (XPMAN)

Deve ser o ultimo.E adicione ele em sua Form (NÃO TERÁ IMPORTANCIA SE ELE FICAR NO MEIO DO PROGRAMA,ELE NÃO APARECE QUANDO O PROGRAMA FOI ABERTO!

Agora vamos deixar ele aparecer no Gerenciador de Tarefas com o nome se sua escolha?

 

Vá em Project/Options/Application, e aí você podera mudar o ícone e o nome a ser mostrado no Gerenciador de Tarefas !

 

Vamos Salvar?

 

Vá em Flie/Salve All e depois dê um F9

 

E pronto Gerador Criado Com Sucesso

3°

Quer que um Edit se mexa? da direta para esquerda?

 

Adicione um ''Timer,Label e um Panel'' ( Label dentro do Panel)

 

Agora clique 2x no Timer e adicione o CODE abaixo

 

if label1.left>= -(label1.Width) then

 

label1.left:=label1.left-1

 

else

 

label1.left := Panel1.width;

OBS:Quanto maior o Interval do Time maior será o tempo do texto passar no Panel !

 

 

Bom Pessoal Eu fico por aqui Logo logo Volto com Mais Tutos Vlw!

 

 

Agradeça se Puder ! Vlw :D

[DragonBoss 8]

Não entendi o porque das letras tamanho 54649E+48 para pedir agradecimento.

 

Enfim, o único realmente "diferente" ae é do form redondo, que tem na quicklist "forms com tamanhos irregulares" do Ryokusei.

 

Conteudo repetido.

 

Fechado.

[darkfenyx3 7]

O do form redondo eu não sabia, legal... ^^