Forçar OnClose

Delphi

21/06/2005

Eu tenho uma consulta de representantes que chama uma tela de notas por representante.

Na tela de notas no evento onShow eu executo o SQL de consulta, só que qndo não há dados para consulta eu gostaria que o form fosse fechado.

Não funciona com um simples CLOSE, ele não executa o evento onclose o form não fecha.

Alguém tem alguma idéia de como eu posso fazer isso?

Sds

Bruno Bacelar


Blbacelar

Blbacelar

Curtidas 0

Respostas

Marco Salles

Marco Salles

21/06/2005

Não funciona com um simples CLOSE, ele não executa o evento onclose o form não fecha.


Ele não executa o evento OnClose ou tem algum código no evento Onclose que o impeça de ser fechado :?: :?: :?:

Como esta o código no evento onclose :?: :?:


GOSTEI 0
Blbacelar

Blbacelar

21/06/2005

Ele não executa nada do que esta no evento onclose.

E la no evento esta o seguinte código:

Action:= Cafree;
frmConsNotas:= nil;


GOSTEI 0
Sandra

Sandra

21/06/2005

blbacelar,

Se for da maneira que entendi, acredito que seu raciocínio deve estar equivocado. Eu escreveria o código da seguinte maneira:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with SuaQuery do begin
    SQL.Close;
    SQL.Add(´SuaSelect´);
    SQL.Add(´blá blá blá´);
    SeusParâmetros;
    Open;
    If IsEmpty then
      ShowMessage(´Não há consulta a ser mostrada!´)
    else begin
      Cria/ExibeForm;
      ExibeDados;
      etc;
    end;
  end;
end;


Avalie se atende sua necessidade. Boa sorte!


GOSTEI 0
POSTAR