Tente usar MessageBox ao invés de Application.Message.box
----- Mensagem original ----
De: Odail Della Niesi Junior <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.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
[As partes desta mensagem que não continham texto foram removidas]
