É o seguinte:
Eu tenho uma rotina de backup dos dados.
Essa rotina fecha todos os forms abertos e faz o backup
Eu sei que vcs vão me xingar, mas eu ainda uso paradox, rs rs (eu apenas
programo por hobby).
Quando existe uma form showmodal aberto, esta rotina não é executada....
procedure TfrmSIAE0000.miFecharClick(Sender: TObject);
var
i : integer;
begin
if mdiChildCount > 0 then
begin
for i := mdiChildCount -1 downto 0 do
mdiChildren[i].Close;
end;
end;
ESta rotina pega somente os form MDIChildren...
Eu precisava que ela pegasse todos os tipos de forms...
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Silvio Clécio
Enviada em: quarta-feira, 11 de março de 2009 16:51
Para: delphi-br@yahoogrupos.com.br
Assunto: [virus JS/TrojanDownloader.Agent.CIW trojan] Res: [delphi-br]
Fechar todos os forms
Olá galera,
Eduardo, então vc teria que colocar um botão (ou menu) nos Forms
ShowModal, pq como vc irá usar o "Fechar todos as janelas" no Form
principal?
Mostre o código pra gente, com mais detalhes a gente tira essa de letra ;)
________________________________
[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@yahoo.com.br
Gmail, GTalk: silviop...@gmail.com
Hotmail, MSN: silviop...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°
________________________________
De: Eduardo Silva <eduko...@yahoo.com.br>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 11 de Março de 2009 13:29:00
Assunto: [delphi-br] Fechar todos os forms
Galera, trabalho com uma aplicação MDI e eu tenho uma rotina que fecha
todos
os forms MDI abertos.
O que eu gostaria era de quando eu abrisse um form showmodal, eu
conseguisse
fechar todos os forms, independente de eles serem showmodal, show ou mdi.
Alguem pode me dar uma mão de como fazer isso?
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
