Fórum Script Brasil > chamar form na frente do outro

Versão Completa: chamar form na frente do outro

Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix

danielrgoes

27/05/2010 - 13:23

Boa tarde pessoal

Estou com um problema

eu tenho uma aplicaça que apos o login chama uma tela principal

try
FrmPrincipal := TFrmPrincipal.Create(self); // chama form main
FrmPrincipal.ShowModal;

finally
FreeAndNil(FrmPrincipal);
Application.Terminate;
end;

porem antes de ela aparecer eu tento chamr uma outra tela [

Frm1.show;
porem o frm1 não aparece na frente do principal

eu tenter fazer assim

SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);

mais ai quando eu chamo uma outra ela o Frm1 não sai mais da frente da aplicaçao

como eu faço pra chamar um form na frente do outro

Douglas Soares

27/05/2010 - 13:49

Faça o Inverso:

CODE

FrmPrincipal.Show;
Frm1.ShowModal;

Abraços

danielrgoes

27/05/2010 - 14:08

Ai quando eu fecho o Frm1 fecha td

não deu certo

Douglas Soares

27/05/2010 - 14:17

Veja como minha aplicação é inicializada junto com o formulário de login.

CODE

program senhas;

uses
  Forms,
  ........................................................................
  cadClientes in 'cadClientes.pas' {frmCadClientes},
  vercontrato in 'vercontrato.pas' {frmVerContrato},
  atualizalicencas in 'atualizalicencas.pas' {frmAtualizaLicencas};

{$R *.RES}

begin
  Application.Initialize;
  frmTabelas := TfrmTabelas.Create(Application);
  frmTabelas.ShowModal;
  frmTabelas.Free;
  Application.Title := 'Sistema Gerenciador de Senhas';
  Application.CreateForm(TdtmPrincipal, dtmPrincipal);
  Application.CreateForm(TfrmPrincipal, frmPrincipal);
  Application.CreateForm(TFrmLogin, FrmLogin);
  Application.CreateForm(TfrmAtualizaLicencas, frmAtualizaLicencas);
  frmPrincipal.Show;
  FrmLogin.ShowModal;
  Application.Run;
end.

Primeiramente dou um show no formulário principal, e em seguida dou showmodal no formuário de login!

Não é isso que você está querendo fazer???

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.