Mostrando um formulário Modal usando Show

Um exemplo disso é quando você está mostrando um diálogo do progresso de uma operação.

O problema é que se você usa ShowModal todo o código da operação deve estar contido no form do diálogo de progresso. 

Para evitar isso use DisableTaskWindows and EnableTaskWindows.

Desta form seu diálogo vai agir como um formulário Modal e ao mesmo tempo permite executar o form da operação que está em progresso no diálogo.

procedure TForm1.ShowProgressDlg;

var

WindowList: Pointer;

begin

// Desabilita todos os formulários com exceção de FrmProgress

WindowList := DisableTaskWindows(FrmProgress.Handle);

try

FrmProgress.Show;

// Início do loop que executa a operação

FrmProgress.ProgressBar1.Position := FrmProgress.ProgressBar1.Position + 1;

// Fim do loop

finally

// Reabilita todos os formulários

EnableTaskWindows(WindowList);

FrmProgress.Close;

end; // try

end; // ShowProgressDlg

Mostrar um Form de Login antes do Form principal

  * 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.
Observações
O Form2 do exemplo é o Form de Login. Este deverá ser preparado para que se possa escolher o usuário, digitar a senha, etc.

Seja você também um(a) Divulgador(a) FR Promotora e ganhe comissões vitalícias.

A FR Promotora Oferece para você a oportunidade de ganhar Dinheiro de forma inteligente e justa.

Como Divulgador você vai ganhar dinheiro com o seu trabalho e com o trabalho dos seus indicados.

Você vai ganhar 60% sobre a 1ª mensalidade dos seus indicados e 20% sobre a primeira mensalidade dos indicados deles.

A partir da 2ª mensalidade dos seus indicados e dos indicados deles, você ganhará de 8 a 17% vitalícios sobre as mensalidades deles.

Crie uma Renda superior a R$ 1.500,00

Já a partir do 3º mês de trabalho

Acesse e faça seu cadastro:

www.frpromotora.com/44608073

FR PROMOTORA – Desde 1998 apresentando soluções

CNPJ.: 02.773.549/0001-44