Fórum Forçar OnClose #285611
21/06/2005
0
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
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
Curtir tópico
+ 0
Responder
Posts
21/06/2005
Marco Salles
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 :?: :?:
Responder
Gostei + 0
21/06/2005
Blbacelar
Ele não executa nada do que esta no evento onclose.
E la no evento esta o seguinte código:
Action:= Cafree;
frmConsNotas:= nil;
E la no evento esta o seguinte código:
Action:= Cafree;
frmConsNotas:= nil;
Responder
Gostei + 0
21/06/2005
Sandra
blbacelar,
Se for da maneira que entendi, acredito que seu raciocínio deve estar equivocado. Eu escreveria o código da seguinte maneira:
Avalie se atende sua necessidade. Boa sorte!
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!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)