Valeu, funcionou..... -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ronaldo Sousa Enviada em: terça-feira, 9 de agosto de 2005 09:21 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: RES: RES: [delphi-br] Criar tela/form para exibição
if Copy(dmSIAEAP01.tblSIAECONF.FieldByName('NR_TEMPOBACKUP').AsString,1,5) = FormatDateTime('hh:mm',now) then begin try if Trim(dmSIAEAP01.tblSIAECONFNM_BACKUP.AsString) <> '' then if not DirectoryExists(dmSIAEAP01.tblSIAECONFNM_BACKUP.AsString) then ForceDirectories(dmSIAEAP01.tblSIAECONFNM_BACKUP.AsString); // frmSIAEMENS := tfrmSIAEMENS.Create(self); frmSIAEMENS := tfrmSIAEMENS.Create(Application); frmSIAEMENS.Show; frmSIAEMENS.Update; // frmSIAEMENS.ShowModal; barra.Panels[4].Text := 'Aguarde...efetuando backup dos dados!'; Rotina de Backup.... Application.ProcessMessages; Sleep(2000); // frmSIAEMENS.Free; frmSIAEMENS.close; barra.Panels[4].Text := ''; Application.ProcessMessages; except messagebox(handle,'Não foi possível realizar o Backup dos Dados !','Erro',MB_OK or MB_ICONERROR); end; end; isso resolve... ronperso >From: Eduardo Silva ® <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: <delphi-br@yahoogrupos.com.br> >Subject: RES: RES: RES: [delphi-br] Criar tela/form para exibição >Date: Tue, 9 Aug 2005 08:46:22 -0300 > >Não funcionou, ele exibe o form, mas não o fecha.... > >Veja abaixo a rotina > > > if >Copy(dmSIAEAP01.tblSIAECONF.FieldByName('NR_TEMPOBACKUP').AsString,1,5) = >FormatDateTime('hh:mm',now) then > begin > try > if Trim(dmSIAEAP01.tblSIAECONFNM_BACKUP.AsString) <> '' then > if not >DirectoryExists(dmSIAEAP01.tblSIAECONFNM_BACKUP.AsString) >then > ForceDirectories(dmSIAEAP01.tblSIAECONFNM_BACKUP.AsString); > > frmSIAEMENS := tfrmSIAEMENS.Create(self); > frmSIAEMENS.ShowModal; > > barra.Panels[4].Text := 'Aguarde...efetuando backup dos dados!'; > Rotina de Backup.... > Application.ProcessMessages; > Sleep(2000); > frmSIAEMENS.Free; > barra.Panels[4].Text := ''; > Application.ProcessMessages; > except > messagebox(handle,'Não foi possível realizar o Backup dos Dados >!','Erro',MB_OK or MB_ICONERROR); > end; > end; > > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] >nome de Ronaldo Sousa > Enviada em: terça-feira, 9 de agosto de 2005 08:28 > Para: delphi-br@yahoogrupos.com.br > Assunto: RE: RES: RES: [delphi-br] Criar tela/form para exibição > > > > coloque no onclose dele: > action := cafree; > > > > ronperso > > > >From: Eduardo Silva ® <[EMAIL PROTECTED]> > >Reply-To: delphi-br@yahoogrupos.com.br > >To: <delphi-br@yahoogrupos.com.br> > >Subject: RES: RES: [delphi-br] Criar tela/form para exibição > >Date: Mon, 8 Aug 2005 13:16:33 -0300 > > > >Não funcionou.... > > > >Ele exibe o form, mas não o fecha...e trava a aplicação > > -----Mensagem original----- > > De: delphi-br@yahoogrupos.com.br >[mailto:[EMAIL PROTECTED] > >nome de Ronaldo Sousa > > Enviada em: segunda-feira, 8 de agosto de 2005 11:39 > > Para: delphi-br@yahoogrupos.com.br > > Assunto: RE: RES: [delphi-br] Criar tela/form para exibição > > > > > > > > Crie um form normal e coloque nele a mensagem que vc quer. > > no inicio da rotina do backup faça: > > > > Frm_mensagem := TFrm_mensagem.Create(Application); > > Frm_mensagem.Show; > > Frm_mensagem.Update; > > > > no final da rotina de beackup faça: > > Frm_mensagem.Close; > > > > Isso resolve. > > > > Ronperso > > > > > > >From: Eduardo Silva ® <[EMAIL PROTECTED]> > > >Reply-To: delphi-br@yahoogrupos.com.br > > >To: <delphi-br@yahoogrupos.com.br> > > >Subject: RES: [delphi-br] Criar tela/form para exibição > > >Date: Mon, 8 Aug 2005 11:23:06 -0300 > > > > > >Eu gostaria de alguma rotina automática, onde o form fosse criado >via > > >código > > >e fechado via código, sem botão e sem barra (no form). > > > > > >Alguma coisa de modo que o usuário ficasse "travado" e tivesse que > >esperar > > >o > > >encerramento do processo. > > > -----Mensagem original----- > > > De: delphi-br@yahoogrupos.com.br > >[mailto:[EMAIL PROTECTED] > > >nome de Rodrigo Tognin > > > Enviada em: segunda-feira, 8 de agosto de 2005 11:15 > > > Para: delphi-br@yahoogrupos.com.br > > > Assunto: RES: [delphi-br] Criar tela/form para exibição > > > > > > > > > Sugestão: > > > crie um form para isso e chame com o ShowModal. > > > Daí ele não poderá voltar ao programa enquanto não fechar o >form. > > > > > > -----Mensagem original----- > > > De: delphi-br@yahoogrupos.com.br > >[mailto:[EMAIL PROTECTED] > > > nome de Eduardo Silva ® > > > Enviada em: segunda-feira, 8 de agosto de 2005 10:42 > > > Para: Grupo Delphi-br > > > Assunto: [delphi-br] Criar tela/form para exibição > > > > > > > > > Galera, tenho uma rotina que realiza um backup no meu sistema na > >hora > > > programada. > > > > > > Como esse backup é realizado muito rápido, não da nem pra ver > >aparecer > > >no > > > status bar, então eu gostaria de criar uma tela (sem barras), >tipo > >um > > >panel > > > no centro do form, com os dizeres "Aguarde realizando >backup...', >de > > >modo > > > que o usuário só poderá continuar a usar o sistema quando o >backup > > >terminar. > > > > > > Como eu faço isso? > > > > > > ~\\|//~ > > > -(o o)- > > > o--------------oOOOo--(_)--oOOOo-------------o > > > | | > > > | Eduardo de Almeida Silva | > > > | Câmara Municipal de Lençóis Paulista | > > > | [EMAIL PROTECTED] - (14)3263-0326 | > > > | | > > > | .oooO Oooo. | > > > o----------------( )---( )---------------o > > > \ ( ) / > > > \_) (_/ > > > > > > > > > > > > > > > -- > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > Para ver as mensagens antigas, acesse: > > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > > > Para falar com o moderador, envie um e-mail para: > > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > > > > > > > > > > > > > >--------------------------------------------------------------------------- > >- > > >-- > > > Links do Yahoo! Grupos > > > > > > a.. Para visitar o site do seu grupo na web, acesse: > > > http://br.groups.yahoo.com/group/delphi-br/ > > > > > > b.. Para sair deste grupo, envie um e-mail para: > > > [EMAIL PROTECTED] > > > > > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos >Termos >do > > >Serviço do Yahoo!. > > > > > > > > > > > > __________ NOD32 1.1187 (20050805) Information __________ > > > > > > This message was checked by NOD32 antivirus system. > > > http://www.nod32.com > > > > > > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > > > _________________________________________________________________ > > MSN Messenger: converse com os seus amigos online. > > http://messenger.msn.com.br > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Para ver as mensagens antigas, acesse: > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > Para falar com o moderador, envie um e-mail para: > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > > > > > > >--------------------------------------------------------------------------- >- > >-- > > Links do Yahoo! Grupos > > > > a.. Para visitar o site do seu grupo na web, acesse: > > http://br.groups.yahoo.com/group/delphi-br/ > > > > b.. Para sair deste grupo, envie um e-mail para: > > [EMAIL PROTECTED] > > > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > >Serviço do Yahoo!. > > > > > > > > __________ NOD32 1.1187 (20050805) Information __________ > > > > This message was checked by NOD32 antivirus system. > > http://www.nod32.com > > > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > _________________________________________________________________ > MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > >--------------------------------------------------------------------------- - >-- > Links do Yahoo! Grupos > > a.. Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > b.. Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do >Serviço do Yahoo!. > > > > __________ NOD32 1.1189 (20050808) Information __________ > > This message was checked by NOD32 antivirus system. > http://www.nod32.com > > >[As partes desta mensagem que não continham texto foram removidas] > _________________________________________________________________ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __________ NOD32 1.1189 (20050808) Information __________ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html