Fórum Maximizar form via código. #2039

20/01/2009

Como faço para maximizar um from via codigo. Delphi 7

Frigorifico Sa

Curtir tópico

+ 0

Responder

Posts

21/01/2009

Ricardo Boaro

Ola..

                  Faça o seguinte:

                  No OnShow ou onde vc quiser maximizar digite:

                   Form1.WindowState := wsMaximized

                 Aguardo seu retorno!

                 Abraço

Responder

Gostei + 0

21/01/2009

Frigorifico Sa

Da um erro no onshow do codigo abaixo.
procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
{: método para abrir form}
Application.CreateForm(aClasseForm, aForm);
try aForm.ShowModal;
finally
aForm.Free;
end;
end;

Responder

Gostei + 0

22/01/2009

Ricardo Boaro

OLá

          Seu código esta assim:
procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
{: método para abrir form}
Application.CreateForm(aClasseForm, aForm);
try     aForm.ShowModal;
finally
    aForm.Free;
end;
end;
Altere para:

begin
{: método para abrir form}
aForm:= TForm.Create(Application);
try
    aForm.ShowModal;
finally
    aForm.Free;
end;
end;

           Isso resolve o seu problema

            Aguardo o seu retorno..

            Abraço

Responder

Gostei + 0

22/01/2009

Frigorifico Sa

Esta criando um formulario em branco. Abraços.

Responder

Gostei + 0

22/01/2009

Ricardo Boaro

   Olá

               Sim, mas é isso que deveria fazer. Se vc criar um formulário com componentes, precisa incrementar o código para cada componente que deseja, definir o Owner o Parent etc.

               Me explique melhor para que vc precisa desse formulário? Por que ele precisa ser criado dinamicamente?

               Abraço

Responder

Gostei + 0

22/01/2009

Frigorifico Sa

Olá Não estou tentado criar o formulario dinamicamente. Tirei de avaliable forms e parou de dar erro, mas assim não maximizava. Achei a propriedade windowsStates desta forma funcionou. Fiz da forma abaixo e o codigo FormSQL.WindowState := wsMaximized; funcionou. //AbreForm(TFormSQL,FormSQL); Application.CreateForm(TFormSQL,formsql);
FormSQL.ShowModal;
Pode encerrar o chamado. Obrigado e abraços.

Responder

Gostei + 0