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
<*> 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
