Willian Jhonnes Lara dos Santos escreveu: > > Olá, Odail... > > Por acaso o FormStyle deste formulário está em fsStayOnTop? Se sim, > mude para fsNormal. > > --------------------------------------------------- > Att.: > Willian Jhonnes L. dos Santos > Analista/Desenvolvedor Object/Free Pascal > [EMAIL PROTECTED] <mailto:willianjhonnes%40yahoo.com.br> > --------------------------------------------------- > Seja livre. Use Linux. > Grupo de Usuários GNU/Linux de São José dos Pinhais > Linux user number 449753 > --------------------------------------------------- > Powered by Slackware Linux 12.0 > Kernel 2.6.21.5-custom > --------------------------------------------------- > > ----- Mensagem original ---- > De: Odail Della Niesi Junior <[EMAIL PROTECTED] > <mailto:dellaniesi%40gmail.com>> > Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Enviadas: Quinta-feira, 18 de Setembro de 2008 13:24:55 > Assunto: [delphi-br] Ajuda com Forms Modais > > Pessoal, > > Estou com o seguinte problema: tenho um método para excluir registro! > Conforme procedure abaixo: > > procedure TfMedicosManutencao .btExcluirClick( Sender: TObject); > > begin > > inherited; > > if Application. MessageBox( PChar('Excluir '+ > DMPesquisa.cdsMEDIC ONM_MEDICO. AsString +'?'), PChar(Application. > Title), + > > MB_YESNO + MB_ICONQUESTION )=mrYes then > > begin > > DMManut.cdsMedManut .Delete; > > DMManut.cdsMedManut .ApplyUpdates( 0); > > MessageDlg(' Registro excluido com sucesso !', mtInformation, [mbOk], > 0); > > Close; > > end; > > end; > > A chamada desse form é feita através da procedure abaixo: > > procedure TfMedicosPesquisa. DBGrid1DblClick( Sender: TObject); > > begin > > inherited; > > try > > Application. CreateForm( TfMedicosManuten cao, fMedicosManutencao) ; > > fMedicosManutencao. Inserindo := False; > > fMedicosManutencao. ShowModal; > > finally > > fMedicosManutencao. Free; > > end; > > end; > > Acontece que a confirmação para excluir o registro fica atrás do form e o > usuário acha que o sistema encontra-se travado e na realidade não é isso. > Alguém já consegui contornar esse problema de janelas MODAIS ? > > Agradeço antecipadamente a ajuda dos colegas. > > -- > Odail Della Niesi Junior > São Pedro - São Paulo - Brasil > MSN: [EMAIL PROTECTED] com > Skype: dellaniesi > Paltalk: dellaniesi > > [As partes desta mensagem que não continham texto foram removidas] > > Novos endereços, o Yahoo! que você conhece. Crie um email novo com a > sua cara @ymail.com ou @rocketmail.com. > http://br.new.mail.yahoo.com/addresses > <http://br.new.mail.yahoo.com/addresses> > > [As partes desta mensagem que não continham texto foram removidas] > >
Vlw, Willian. Obrigadão. -- []s, Odail Della Niesi Junior São Pedro-SP
