O Close não fecha o formulário.
Crio um Form FormX
if FormX.ShowModal = mrOK then
//Faz alguma coisa
No OnShow do FormX verifico algumas validações e dou uma mensagem de erro caso necessite e dou um Close para nem mostrar o formulário. Já tentei ModalResult := mrCancel e não adianta o form não fecha.
Alguém poderia ajudar?
if FormX.ShowModal = mrOK then
//Faz alguma coisa
No OnShow do FormX verifico algumas validações e dou uma mensagem de erro caso necessite e dou um Close para nem mostrar o formulário. Já tentei ModalResult := mrCancel e não adianta o form não fecha.
Alguém poderia ajudar?
Mkoch
Curtidas 0
Respostas
Nildo
07/12/2005
Crio um Form FormX
if FormX.ShowModal = mrOK then
//Faz alguma coisa
No OnShow do FormX verifico algumas validações e dou uma mensagem de erro caso necessite e dou um Close para nem mostrar o formulário. Já tentei ModalResult := mrCancel e não adianta o form não fecha.
Alguém poderia ajudar?
Seu form está processando alguma coisa pesada ou está parado?
GOSTEI 0
Mkoch
07/12/2005
Pego um valor do banco ´ValorMinimo´ e ai faço a validação abaixo...
...e simplesmente não fecha.
if vValor < ValorMinimo then
begin
MsgErro(´O valor das parcelas ´ + QuotedStr(MoneyToStr(vValor)) + ´ é menor que o valor mínimo permitido ´ + QuotedStr(MoneyToStr(ValorMinimo)) + ´.´);
Close;
Abort;
end;//if
...e simplesmente não fecha.
GOSTEI 0
Emerson Nascimento
07/12/2005
por acaso essa instrução não está dentro de um bloco [b:90a9240543]with[/b:90a9240543] ou algo assim?
GOSTEI 0
Rtava
07/12/2005
Não dá para você fazer essas validações antes de mandar abrir o FormX? De repente você até ganha tempo não abrindo caso não seja validado.
Outra coisa... por que você não abre o form usando apenas FromX.ShowModal? Funciona igual.
Outra coisa... por que você não abre o form usando apenas FromX.ShowModal? Funciona igual.
GOSTEI 0
Mkoch
07/12/2005
Fechar o form até não é o maior dos problemas porque consigo controlar a situação sem fecha-lo, só achei estranho não conseguir fechálo.
GOSTEI 0
Nildo
07/12/2005
Use o NomeDoForm.Close;
GOSTEI 0