Fórum Exibir um form usando Show; Não consigo fazer isso. Ajudem. #184841
29/09/2003
0
se eu der showmodal, aí eu consigo fazer isso, alguém sabe como resolver?
Atenciosamente,
Rodrigo.
Jorgerodrigo
Curtir tópico
+ 0Posts
29/09/2003
Machado
Gostei + 0
29/09/2003
Joey
verifica se a propriedade ´FormStyle´ dos outros forms estão como ´fsMDIChild´.
tenta colocar esse comando p/ abrir os forms:
form1 := Tform1.Create(Application);
form1.Show;
Gostei + 0
29/09/2003
Jorgerodrigo
Vou explicar melhor, a primeira tela que eu abro é uma tela de login, depois eu dou um show, no form que passa a ser o principal, a partir daí, não consigo mais usar o comando show, somente o showmodal faz aparecer os forms, se eu colocar show, ele só pisca, como se fosse aparecer mas o principal ficasse na frente dele.
Atenciosamente,
Gostei + 0
29/09/2003
Jorgerodrigo
// Try
// Screen.Cursor := crAppStart; Application.CreateFormTFrmAssistenciaMedica,FrmAssistenciaMedica);
FrmAssistenciaMedica.Show;
// Finally
// FrmAssistenciaMedica.Release;
// FrmAssistenciaMedica := nil;
// Screen.Cursor := crDefault;
// end;
Quando coloquei as linhas que vcs podem ver em comentário, aí funcionou, porque será? Eu preciso usar estes comandos, alguém tem uma solução?
Atenciosamente,
Rodrigo.
Gostei + 0
29/09/2003
Imoreira
Gostei + 0
29/09/2003
Jorgerodrigo
Descobri outra coisa, se eu der um show no form sem o Try e Finally, liberando o form, ele exibe o form, só que quando eu o fecho, ele fecha a aplicação inteira.
Atenciosamente.
Rodrigo.
Gostei + 0
30/09/2003
Joey
A propriedade ´´formstyle do form Principal tem que está como = ´fsMDIForm´
e não entendi o q vc quer fazer, se vc fechar o form principal com toda certeza fechará a aplicação...
Gostei + 0
30/09/2003
Rfpsatin
se estive tente o seguinte
Form1.show;
Form1.update;
Gostei + 0
30/09/2003
Genial_reis
Tenta resolver com isto........
Begin
if <Form-name> = nil then
<Form-name> := T<Form-name>.Create ( Application );
<Form-name>.ShowModal;
end;
Gostei + 0
30/09/2003
Pesconi
eu sanar mais uma duvidas deste seres que anseia pelo conhecimento :lol: :lol: :lol: :lol: :lol: :lol:
ZUERA!!!!!
Eu uso em todos os meu programas o seguinte comando para abrir forms
begin
SCREEN.Cursor := crHourGlass;
ChildNum := ChildNumber(´(NomeForm)´);
if (ChildNum < 0) then
Application.CreateForm(T(NomeForm), (NomeForm));
begin
if (NomeForm).WindowState = wsMinimized then
(NomeForm).WindowState := wsNormal;
SCREEN.Cursor := crDefault;
(NomeForm).show;
(NomForm).Notebook1.pageindex := 0;
end;
Nunca deu erros
esses comandos se tem que po no evento onClick do botao que abr o form
troque (NomeForm) pelo nome do form que vc quer abrir.
FLW
espero ter ajudado :) :) :) :)
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)