GARANTIR DESCONTO

Fórum MDIForm #277325

15/04/2005

0

Delphi

Ola a Todos

Tenho Um problema no fachamento do form
Tipo

uso pra chamar um form Child

 if Clientes = nil then                         //Verifica se o Form Clientes Recebeu NIL
  begin
    CadastrodeClientes1.Checked := True;         //Marca o menu Cadastro de Clientes
    Clientes := TClientes.Create(self);          //Cria o form Clinetes
  end
  else
    Clientes.Show;                               //Se for diferente de Nil Mostra o Form Clientes


para fechar ele to usando assim

procedure TClientes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MenuPrincipal.CadastrodeClientes1.Checked := False;   //Marca o menu Cadastro de Clientes
  Destroy;                                              //Destroi o From Clientes
  Clientes := nil;                                      //Form Clientes recebe NIL
end;


so q quando fecho ele bor um botao ele da o seguinte erro

Abstract Error.

O que pode ser tem como fazer de outra forma?

bom eh isso
Vlw
Dart


Dart

Dart

Responder

Posts

15/04/2005

Andremuller

não execute o Destroy, ao invés insira o seguinte código
Action := caFree;


Responder

Gostei + 0

15/04/2005

Tnaires

não execute o Destroy, ao invés insira o seguinte código Action := caFree;

Exatamente! Mas, se vc um dia ainda cismar d utilizar um método d destruição, use Release (recomendado para destruir um Form), e não Destroy ou Free.
Abraços


Responder

Gostei + 0

16/04/2005

Dart

Opa

Seguinte

Quando chamo 2 form MDIChild em Maximized e fecho um o q ficou ele volta a wsNormal


Ja tentei de tudo

Se alguem puder ajudar ficarei grato.

Dart


Responder

Gostei + 0

17/04/2005

Marco Salles

Amigo , como esta a propiedade [b:a89792fdd3]FormStyle[/b:a89792fdd3] dos formulários criados :?: :?: :?:
Todos , exceto o Principal, estão na secção [b:a89792fdd3]Available Forms [/b:a89792fdd3]:?: :?: :?:


Responder

Gostei + 0

17/04/2005

Dart

Seguinte

P primcipal esta com esta com fsMDIForm e as outras com fsMDIChild.

e o q vc quer dizer com: exceto o Principal, estão na secção Available Forms


Responder

Gostei + 0

17/04/2005

Marco Salles 

P primcipal esta com esta com fsMDIForm e as outras com fsMDIChild. 

e o q vc quer dizer com: exceto o Principal, estão na secção Available Forms


[b:9c8bfbc7eb]Aparentemente esta Ok. [/b:9c8bfbc7eb]

:arrow:

Voce dis que

Quando chamo 2 form MDIChild em Maximized

Voce definiu isto na propiedade Do Objecto Inspector Ou Via Código :?: :?: :?:

e Outra :
e fecho um o q ficou ele volta a wsNormal


Este outro que ficou voce esta se referindo ao Outro fsMDIChild, Seria isto :?: :?: :?:


Responder

Gostei + 0

17/04/2005

Angelnoa

Todos , exceto o Principal, estão na secção Available Forms ?

Apenas o formulário principal deve estar na lista do auto-create, os outros devem está na lista de Availabel Forms
(Menu Project -> Options -> Forms)


Responder

Gostei + 0

17/04/2005

Marco Salles

[b:c333beef9c]Marco salles Escreveu:[/b:c333beef9c]
Todos , exceto o Principal, estão na secção Available Forms


[b:c333beef9c]Replica do Dart[/b:c333beef9c]
e o q vc quer dizer com: exceto o Principal, estão na secção Available


Pensei que voce disse que sim :oops: :oops: ... Mas vejo que voce respondeu a [b:c333beef9c]pergunta [/b:c333beef9c], com[b:c333beef9c] outra pergunta [/b:c333beef9c]:lol: :lol: :lol:

[b:c333beef9c]angelnoa escreveu:[/b:c333beef9c]
Apenas o formulário principal deve estar na lista do auto-create, os outros devem está na lista de Availabel Forms 
(Menu Project -> Options -> Forms)


É isto que eu quis te perguntar Dart :lol: :lol: :lol:
[/b]


Responder

Gostei + 0

17/04/2005

Dart

[quote:1a6351cd34=´Marco Salles´]Voce definiu isto na propiedade Do Objecto Inspector Ou Via Código :?: :?: :?: [/quote:1a6351cd34]
[b:1a6351cd34]Resposta:[/b:1a6351cd34]
Eu defino no Objecto Inspector Os MDIChild e MDIFORM dos Forms

Mas quando eu abro 2(Dois) form q esta como MDICHILD em Maximized, e Preciso fechar um deles (uso o comando Release) o q ficou ele volta ao Normal.

Obs. eu nao chamo o msm 2 vezes, sao form diferentes um de cadastro de clientes outro de produtos
Codigo para chamar o form:
if Clientes = nil then //Verifica se o Form Clientes Recebeu NIL
begin
CadastrodeClientes1.Checked := True; //Marca o menu Cadastro de Clientes
Clientes := TClientes.Create(self); //Cria o form Clinetes
end
else
Clientes.Show; //Se for diferente de Nil Mostra o Form Clientes[b:1a6351cd34][/b:1a6351cd34]


Responder

Gostei + 0

17/04/2005

Marco Salles

[b:415ceabb43] (uso o comando Release) o q ficou ele volta ao Normal. [/b:415ceabb43]

[b:415ceabb43]Tente usar ao inves da procedure Release a seguinte instrução No Evento Onclose do Form[/b:415ceabb43]

  Action:=Cafree;                                             
  Form2:= nil;



Responder

Gostei + 0

17/04/2005

Dart

[quote:c3f77719fe=´Marco Salles´][b:c3f77719fe] (uso o comando Release) o q ficou ele volta ao Normal. [/b:c3f77719fe]

[b:c3f77719fe]Tente usar ao inves da procedure Release a seguinte instrução No Evento Onclose do Form[/b:c3f77719fe]

  Action:=Cafree;                                             
  Form2:= nil;
[/quote:c3f77719fe]


Cara vlw msm funcionou
Muito Obrigado


Responder

Gostei + 0

17/04/2005

Marco Salles

Valeu . Disponha


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar