Como Fazer Isto?

[matflavio]

Gostaria de saber como faço para montar um tele incial, ou seja, quando clicar no icone da minha aplicação gostaria de primeiro monstrase a tela de usuário (login e senha). Se a senha e o login estiverem correto ir para a tela principal caso contratário dar uma mensagem de senha e login inválido??? Sou iniciante!!!!! Alguém pode me ajudar????

[Thales Pontes Martins]

É o seguinte cara: você tá lá com a sua aplicação, beleza! Aí você coloca um novo form:

File -> New -> Form. Dê o nome do form de fsenha.

Nesse form você vai colocar uma edit pro cara digitar a senha, um label para informar 'Digite a sua senha' e um butão.

Aí você vai na propriedade do form BorderStyle e muda para BsDialog, procara não dimensionar o form.

Aí você vai na propriedade do form BorderIcons e deixa tudo false, pra não aparecer o botão de fechar no canto do form.

Aí você coloca no evento OnKeyPress da edit o segunite procedimento:

procedure TFSenha.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then 
  begin
    if (edit1.text = senha) then close else ShowMessage('SenhaIncorreta');
  end;
end;

Aí você coloca o Caption do butão = 'Cancelar'. Aí você coloca no evento OnClick do butão o seguinte procedimento:

procedure TSenha.Button1Click(Sender: TObject);
begin
  Halt;
end;

Aí você coloca no evento OnClose do form o seguinte procedimento:

procedure TFSenha.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not(edit1.text = senha) then halt;
end;

Aí você vai no menu Project -> View Source. Será exibido o código do programa. Aí você retira a linha -> Application.CreateForm(TFsenha,Fsenha); O código deverá ficar mais ou menos assim ->

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {FSenha};
{$R *.res}

begin
  FSenha:=TFSenha.Create(Application);
  FSenha.ShowModal;
  FSenha.Free;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Acho que é só isso. Sendo que senha tem que ser uma variavel ou contante do tipo string. Para maior proteção você pode encriptar a senha pra niguem abrir o exe com hex editor e descobrir. Isso se faz fácilmente escrevendo-se uma função que retorna a senha, ou seja: a função vai executar cálculos matemáticos em cima de constantes do programa de forma a retornar a senha correta, não ficando protanto armazenada no exe. Isso só depende de sua criatividade. Espere ter ajudado. Abraço.