Buscar por:

Mostrando um form de logon antes do form principal

Código

{ * Crie um novo Projeto. Este certamente terá o Form1. 

  * Adicione um novo Form (Form2). 

  * Coloque no Form2 dois botões TBitBtn. 

  * Mude a propriedade Kind do BitBtn1 para bkOK. 

  * Mude a propriedade Kind do BitBtn2 para bkCancel. 

  * Vá no menu "Project/Options" na aba "Forms" e passe o 

  Form2 de "Auto-create Forms" para "Available Forms". 

  * Abra o arquivo Project.dpr (menu Project/View Source). 

  * Altere o conteúdo deste arquivo conforme abaixo: 

} 

program Project1; 

uses 

  Forms, Controls, 

  Unit1 in 'Unit1.pas' {Form1}, 

  Unit2 in 'Unit2.pas' {Form2}; 

{$R *.RES} 

var 

  F: TForm2; 

begin 

  F := TForm2.Create(Application); 

  try 

  if F.ShowModal = mrOK then begin 

  Application.Initialize; 

  Application.CreateForm(TForm1, Form1); 

  Application.Run; 

  end; 

  finally 

  F.Free; 

  end; 

end. {O Form2 do exemplo é o Form de LogOn. Este deverá ser preparado para que se possa escolher o usuário, digitar a senha, etc. }