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