Bom, eu geralmente crio assim: FrmCadClientes := TFrmCadClientes.Create(Self); FrmCadClientes.ShowModal; FreeAndNil(FrmCadClientes);
A propriedade WindowState do Form vc pode definir Maximizado, Minimizado ou Normal. Tem a propriedade position, nela vc define o form no centro do Desktop. []'s Em 06-08-2010 11:18, Marciano Venter escreveu: > > Bom dia a todos, > > Estou montando um projetinho simples de cadastros, pois estou iniciando no > delphi e usando ele para aprender algumas coisas. Bom, estou tentando > fazer > um procedimento para chamar meus formulários, pois em cada Action para > chamar um formulário estou utilizando o código abaixo : > > if FrmCadClientes = nil then > begin > Application.CreateForm(TFrmCadClientes, FrmCadClientes); > FrmCadClientes.Show; > end > else > begin > if FrmCadClientes.WindowState = wsMinimized then > begin > FrmCadClientes.WindowState := wsNormal; > end; > FrmCadClientes.Show; > end; > > o que ocorre, é que eu estou tento dificuldades com os tipos dos > paramentros > do procedimento CreateForm(). > Estou tentando usar assim, mas sem sucesso: > > procedure TFrmPrincipal.AbreForm(TFForm: TComponentClass; N_Form: TForm); > begin > if N_Form = nil then > begin > Application.CreateForm(TFForm, N_Form); > N_Form.Show; > end > else > begin > if N_Form.WindowState = wsMinimized then > begin > N_Form.WindowState := wsNormal; > end; > N_Form.Show; > end; > end; > > Usando meu procedimento da seguinte maneira, AbreForm(TFrmCadClientes, > FrmCadClientes); o form abre varias vezes quantas forem clicadas no > botão, e > usando da primeira forma, ele funciona corretamente, utilizei o mesmo > formulário nas duas formas. > PS.: Esse formulário é herdado de um formulário base, no FrmPrincipal o > FormStyle é fsMDIForm e os outros como fsMDIChild. > > Obrigado. > ---------------------------------------------------------- > Marciano Venter > Email: venter.marci...@gmail.com <mailto:venter.marciano%40gmail.com> > Celular: (51) 9672 6093 > venter.marci...@gmail.com <mailto:venter.marciano%40gmail.com> > marcianoven...@hotmail.com <mailto:marcianoventer%40hotmail.com> > [image: Twitter] <http://www.twitter.com/ventermarciano>@ventermarciano > [image: > Facebook]<http://www.facebook.com/profile.php?id=100000304177338&ref=profile > <http://www.facebook.com/profile.php?id=100000304177338&ref=profile>> > Marciano > Venter > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas]
