[Delphi 7 Funções] Colocando Pagina de Click Aqui para Prosseguir + Transparência.

[maycom13 0]

Olá Pessoal, Estou Com Uma Dúvida aqui de Como faço para Colocar Uma Abertura de Tipo Click aqui Para Prosseguir, Outra de Click na Propaganda Para Prosseguir, Tudo Isso Em Um Programa Feito esse Trainer Aqui!

 

SS:

 

Outra, Como Colocar para a Janela e Visual do Programa Transparente??

 

Isso e De Grande Importância Para a Aréa Delphi!

Agrandeço desde da Já!!!

[iMelo~' 15]

Ajuda ?

 

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

• Entre
• ou
• Cadastre-se

[flaviohero 1]

Colocando oque o imelo falou ao topico:

Adicione ao Formulario :

* 1 TWebBrowser(WebBrowser1);

* 3 T*****(*****1, *****2, *****3 - Enabled=false);

* 1 TButton(Button1 - Enabled=false);

Parte 2

Defina a Veriavel Global Adicionando abaixo de Var

 

ClickAtual:integer=0; //esta variável armazenará a quantidade de clicks nos banners

Va No Object Inspector e no OnShow do **** 1 Adicione Ente o Begin e o END;

 

WebBrowser1.Navigate('http://www.panic-cheats.com'); //troque pelo endereço do seu site

No OnClick do Button 1 Adicione Entre o Begin e o End;

Form2.Show;

No OnNewWindows2 do WebBrowser 1 Adicione Entre o Begin e o End;

 

if ClickAtual=0 then begin // No Primeiro Click ele Habilita a *****1

*****1.Enabled := true;inc(ClickAtual); //*****1 Sendo HAbilitada

exit;

end;

if ClickAtual=1 then // No Segundo Click Ele Habilita a *****2

begin

*****2.Enabled := true;inc(ClickAtual); // *****2 Sendo Habilitada

exit;

end;

if ClickAtual=2 then // No Terceiro Click Ele Habilita a *****3

begin

*****3.Enabled := true; // *****3 Sendo Habeilitada

Button1.Enabled := true; // Apos os 3 Clicks Button 1 é Liberado

inc(ClickAtual);

exit;

end;

end;

Usando : Rode o Programa nos Banners Click com o Direito e Click em Abrir em Nova Aba e Pronto

TUTORIAL BY Hack4You Group

Sobre a transparencia:

na propriedade (do form1/sla) transparent color vc seta a cora BRANCA...

 

e a cor de fundo do form1 ou outro vc coloca de BRANCA....

 

 

tudo que for branco some.

Creditos Quartieri

[iMelo~' 15]

Flavio acho que o que ele quer ja ta bom porém pra inovar o seu vai ajudar , valeu por ajudar o topico.