Conectar-se

Esqueci minha senha

Top dos mais postadores
Sheik
 
Dead
 
Mikéé
 
L.Danttas
 
Mex
 
Higor
 
Wesley
 
Smuck
 
RocK ♕
 
-Rєis-
 

Últimos assuntos
» Brasil Virtual Life - PRG SA-MP
Qua Jul 15, 2015 9:22 pm por Bruno_Walker

» [PACK] NEW-CRYPTO PACK / DUCKETS / CORES NAS FALAS / GRUPOS [PACK]
Seg Ago 11, 2014 3:08 pm por Marco Antoniio

» CraftLandia - O melhor servidor de minecraft
Qua Dez 04, 2013 6:00 am por joaozip08

» AJUDA Com utilitario
Dom Out 27, 2013 6:11 am por mcbolado

» [Skin] Hilux 2011
Qua Out 09, 2013 3:12 pm por pudimmais

» Bate-papo.
Seg Set 02, 2013 1:29 pm por SouthPark

» Loja especial.
Qua Ago 28, 2013 9:48 pm por L.Danttas

» Cabral garante Maracanã seguro, mas 600 operários trabalham no interior.
Qui Ago 08, 2013 10:19 pm por Netinho

» Dólar fecha acima de R$ 2,07; Banco Central fica fora de negócios
Qui Ago 08, 2013 10:16 pm por Netinho

Os membros mais ativos do mês


[Tutorial] Sistema Anti-Lecher no seu projeto

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Tutorial] Sistema Anti-Lecher no seu projeto

Mensagem por L.Danttas em Ter Maio 28, 2013 6:56 pm

Tutorial

- Abra o Delphi 7 .

- Adicione 2 Labe.ls , 2 Edits e 1 Button .

Altere :


Caption do Lab.el1 = “Usuário:” [Sem as Aspas]
Caption do Lab.el2 = “Senha:” [Sem as Aspas]
Caption do Button1 = “Okay” [Sem as Aspas]
Text dos 2 Edits = “”[Sem as Aspas]
- Clique duas vezes no Button1(OKay) e coloque o código :

Código:
Código:
// Se os campos estiverem em branco, mostra o erro…

if (Edit1.text = '')and(Edit2.text ='') then

begin

Application.MessageBox('Preencha os campos de maneira adequada, por favor.','Erro!',MB_ICONError);

Edit1.Clear;

Edit2.Clear;

Edit1.Setfocus;

end;

// Se os campos não estiverem em branco, Continua com a verificação...

if (Edit1.text <> '')and(Edit2.text <> '') then

begin

// Verifica se o campo usuário estiver com o valor: PowerPixel e o campo senha: PowerPixel

// Se estiver tudo correto abre o Form2

if (Edit1.text = 'PowerPixel')and(Edit2.text = 'PowerPixel') then

begin

Form2 := Tform2.create(application);

Hide;

Form2.showmodal;

end;

// Se tiver algum problema na verificação, mostra uma mensagem e limpa os campos...

if (Edit1.Text <> 'PowerPixel'')or(Edit2.text = 'PowerPixel'') then

begin

Application.MessageBox('Sua senha esta incorreta!','Erro!',MB_ICONError);

Edit1.Clear;

Edit2.Clear;

Edit1.Setfocus;

end;

end; 

- Agora crie uma nova For.m .

- Clique no Form2, clique na aba Events dentro da janela Object Inpector , procure o evento OnClose , dê um duplo clique no campo vazio ao lado do evento.
Irá abrir a janela de código , dentro dessa janela coloque o código :

Código:
Código:
Halt; 

- Agora é só apertar F9 para testar .

Sem tirar creditos !
Os créditos vão á : ~[B]art [Outro Fórum] - Pelo Tutorial.
avatar
L.Danttas
Administrador
Administrador

Mensagens Mensagens : 310
Pontos Pontos : 777821
Data de inscrição Data de inscrição : 23/04/2013

Ver perfil do usuário http://wonder.forumeiros.com

Voltar ao Topo Ir em baixo

Re: [Tutorial] Sistema Anti-Lecher no seu projeto

Mensagem por RocK ♕ em Ter Maio 28, 2013 7:17 pm

Não tenho a minima ideia do que é isso mais ótimo tutorial.
avatar
RocK ♕
Junior Member
Junior Member

Mensagens Mensagens : 201
Pontos Pontos : 272
Data de inscrição Data de inscrição : 28/05/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Tutorial] Sistema Anti-Lecher no seu projeto

Mensagem por Pixel em Ter Maio 28, 2013 7:19 pm

Olá,

Obrigado por compartilhar conosco!


Pixel
Membro
Membro

Mensagens Mensagens : 15
Pontos Pontos : 120
Data de inscrição Data de inscrição : 28/05/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Tutorial] Sistema Anti-Lecher no seu projeto

Mensagem por RocK ♕ em Ter Maio 28, 2013 7:21 pm

Obrigado por Compartilhar esse ótimo tutorial.
avatar
RocK ♕
Junior Member
Junior Member

Mensagens Mensagens : 201
Pontos Pontos : 272
Data de inscrição Data de inscrição : 28/05/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Tutorial] Sistema Anti-Lecher no seu projeto

Mensagem por Civilization em Qua Maio 29, 2013 2:18 pm

Obrigado por compartilhar!

Civilization
Membro
Membro

Mensagens Mensagens : 0
Pontos Pontos : 0
Data de inscrição Data de inscrição : 24/04/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Tutorial] Sistema Anti-Lecher no seu projeto

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum