Exibir um form usando Show; Não consigo fazer isso. Ajudem.

você deve observar o que você colocou no form principal, no on-creat ou no on-show sei la alguma linha de comando foi colocada, por que isso não é comum, ou melhor eu nunca vi isso acontecer, vai testando ai tirando algums comandos colocados no form principal.

Cara,

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;

Ainda não deu certo, nem com a propriedade dos forms em fsMDIChild, e também no on-create/on-show não tem nada,
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,

Eu uso no meu projeto estes comando para exibir/liberar os forms

// 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.

Provavelmente o formStyle do form primcipal está como fsStayOnTop.

O meu form principal está com formStyle = fsNormal.

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.

Rodrigo,


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...

teu form ta no auto-create?
se estive tente o seguinte

Form1.show;
Form1.update;

Tenta resolver com isto........

Begin
if <Form-name> = nil then
<Form-name> := T<Form-name>.Create ( Application );
<Form-name>.ShowModal;
end;

dexa
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 :) :) :) :)