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