Dúvida sobre o evento show do form

Delphi

18/07/2009

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

Curtidas 0

Respostas

Danielrsanches

Danielrsanches

18/07/2009

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


GOSTEI 0
Marco Salles

Marco Salles

18/07/2009

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)



GOSTEI 0
Tgbtolkki

Tgbtolkki

18/07/2009

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


GOSTEI 0
POSTAR