(Resolvido) Fechar form modal ao abrir outro form modal

[renanbg]

Amigos, vejam a imagem

Para acessar o cadastro de usuarios, antes peço a senha.

Application.CreateForm(Tfrmsenha, frmsenha);
frmsenha.ShowModal;

Se a senha for correta, abro o form de usuarios da mesma forma

Application.CreateForm(Tfrmusu, frmusu);
frmusu.ShowModal;

Gostaria de fechar o form da senha assim que chamo o de usuarios, mas o comando close só fecha ele quando eu fechar o form de usuarios.

Usar o show não é uma opção, pois se o usuario clicar fora do formulario, ele some.

[Jhonas]

Gostaria de fechar o form da senha assim que chamo o de usuarios,

mas o comando close só fecha ele quando eu fechar o form de usuarios.

voce não consegue fechar o form senha  ( Form1 )  visto que foi ele quem chamou o  form de usuários ( Form2 )

o que voce pode fazer é deixar o form senha ( Form1)  invisivel quando o ( Form2 ) for ativado, e só fecha-lo ( Form1.Close ) quando Fechar o Form2.

exemplo usando um Form1 e um Form2.

O Form1 ( senha )  chama o Form2 ( usuarios ) e assim que o Form2 é ativado o Form1 fica invisivel para o usuario.

Codigo do Form1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2.showmodal;
end;

end.

Código Form2

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
begin
   Form1.Visible := false;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Form1.Close;
end;

end.

Abraço

[renanbg]

hum, pode ser uma solução.

obrigado