mausimag
Informática
Número de Mensagens : 24
Idade : 33
Data de inscrição : 21/12/2007
![[DELPHI]Pedir senha antes do form principal Empty](https://2img.net/i/empty.gif) |  Assunto: [DELPHI]Pedir senha antes do form principal ![[DELPHI]Pedir senha antes do form principal Icon_minitime](https://2img.net/i/fa/icon_minitime.gif) Sex Dez 21, 2007 11:13 am | |
| Somente coloque esse código no evento OnCreate do form principal. Código: - Código:
-
procedure TForm1.FormCreate(Sender: TObject);
var
senha: string[6];
begin
senha:=inputbox('Senha','Digite a Senha,'');
if (senha<>'159')and(senha<>'159') then
begin {no lugar de 159 digite sua senha}
SHOWMESSAGE('SENHA INCORRETA!');
halt;
end;
end; | |
|
eXodo34
Member
Número de Mensagens : 44
Data de inscrição : 20/06/2011
| | Assunto: Re: [DELPHI]Pedir senha antes do form principal Ter Jun 21, 2011 2:19 pm | |
| | |
|
maches
Amigo da EOC
Número de Mensagens : 73
Data de inscrição : 23/06/2011
| | Assunto: Re: [DELPHI]Pedir senha antes do form principal Dom Jun 26, 2011 5:13 pm | |
| | |
|
Conteúdo patrocinado
| | Assunto: Re: [DELPHI]Pedir senha antes do form principal | |
| |
|
