Fórum Dúvida sobre o evento show do form #372463

18/07/2009

0

olá pessoal, estou passando por uma dificuldade talvez um tanto boba mas nao sei como lidar com isso

acontece que tenho alguns procedimentos que deve ser executado durante a inicializacao do formulario (onCreate ou onShow) ... tenho usado o onShow
esses procedimentos seguem mais ou menos esse formato

procedure TForm.FormShow(Sender: TObject);
begin
try
// alguns exemplos de procedimentos
carrega_isso;
carrega_aquilo;
habilita_isso;
habilita_aquilo;
except
on Error : Exception do
begin
//trata o erro gerado e informa o usuário que deu erro no formulario
Close;
end;
end;
end;

poiseh, a duvida surge exatamento no close .. que mesmo que ocorra a excessao gerada por alguns daqueles metodos o formulario nao fecha
nao sei se estou fazendo alguma besteira mas nao conseguir fazer funcionar isso

agradeco qualquer ajuda


Tgbtolkki

Tgbtolkki

Responder

Posts

18/07/2009

Danielrsanches

estranho... fiz um teste simples aki e deu certo ...

        try
                strtoint(´d1´);
        except on E: Exception do
                begin
                        MessageDlg(´Erro´+#13+13+E.Message,mtError,[mbOk],0);
                        close;
                end;
        end;


post aki o código que está usando ...

abraços !!!


Responder

Gostei + 0

18/07/2009

Marco Salles

As biografias do Delphi são unanimes :

A unica maneira de fechar um Form em seu Evento OnShow é processando
a mensagem do Windows

postMessage(handle,Wm_Close,0,0)



Responder

Gostei + 0

20/07/2009

Tgbtolkki

eaw pessoal ... descobri o problema aqui ... e a solucao acima tb resolve o problema ... acontece eh que esse meu formulario que nao estava fechando era modal e chamada por um outro formulario MDI ... entao simplesmente usei closemodal em vez de simplesmente close e funcionou ...

grato a todos que ajudaram


Responder

Gostei + 0

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

Aceitar