Source Sistema de Banners

RafaelMcd

Membro
Registrado
Junho 2, 2017
Mensagens
120
Pontos de reações
77
Adicione ao Formulario :
PHP:
* 1 TWebBrowser(WebBrowser1);
* 3 TLabel(Label1, Label2, Label3 - Enabled=false);
* 1 TButton(Button1 - Enabled=false);
Defina a Veriavel Global Adicionando abaixo de Var

PHP:
ClickAtual:integer=0; //esta variável armazenará a quantidade de clicks nos banners
Va No Object Inspector e no OnShow do Form 1 Adicione Ente o Begin e o END;
PHP:
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;
PHP:
Form2.Show;
No OnNewWindows2 do WebBrowser 1 Adicione Entre o Begin e o End;
PHP:
if ClickAtual=0 then begin // No Primeiro Click ele Habilita a Label1
Label1.Enabled := true;inc(ClickAtual); //Label1 Sendo HAbilitada
exit;
end;
if ClickAtual=1 then // No Segundo Click Ele Habilita a Label2
begin
Label2.Enabled := true;inc(ClickAtual); // Label2 Sendo Habilitada
exit;
end;
if ClickAtual=2 then // No Terceiro Click Ele Habilita a Label3
begin
Label3.Enabled := true; // Label3 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 delphicodesbr
 

Membros que estão visualizando este tópico (Total: 1, membros: 0, visitantes: 1)

Topo