Jump to content
Fórum Script Brasil
  • 0

Criar Uma Mensagem De Dialogo Em Delphi Em PortuguÊs


Guest --robosa --
 Share

Question

Guest --robosa --

gostaria de saber como faço para criar uma mensagem em português no seguinte código, questionando o usuário.

if MessageDlg('Tem certeza que deseja excluir esse aluno?',

mtwarning,[mbYes,mbNo],0) = mrYes then // se yes

se poderem gostaria de uma ajuda obrigado.

Edited by Micheus
Não observação do item 3.7 das regras do forum - NÃO digite em caixa alta (1º aviso)
Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Robosa O seu caso é parecido com o do Danilo de uma olhada no que eu passei para ele e verifique se corresponde ao seu problema.

No caso aqui se você não tem uma unit de fuções e procedimentos crie uma em:

File>New>Unit

E e salva ela como funcoes:

No caso vai ser assim a Unit:

unit Unit1;

interface

implementation

end.
E ai você deixa assim sua Unit
unit funcoes;

interface

uses dialogs, forms, controls, windows, classes, variants, SysUtils;

procedure excluirregistro (ptabela, pcondicao : string);
function pergunta (mensagem : string) : boolean;

implementation

Uses FDtmiza; // Aqui você vai colocar em uso o seu banco de dados para manter conexão com ele em hora de exclusão.

procedure excluirregistro (ptabela, pcondicao : string);
   var instrucaosql :string;
begin
   instrucaosql:= 'delete from ' +ptabela;
   if (pcondicao<>'') then
      begin
         instrucaosql:= instrucaosql+ ' where ' + pcondicao;
      end;
//   showmessage (instrucaosql);
   with [b]dtmiza.qryiza[/b] do  // esse em negrito no caso eu uso um IbDataBase e IbQuery, mas para teste seu e visualização apague do showmessage ate o Penultimo end;
      begin
         close;
         sql.Clear;
         sql.add (instrucaosql);
         execsql;
      end;
end;

function pergunta (mensagem : string) : boolean;
begin
   Result:=(application.messagebox(pchar(mensagem),pchar ('confirmação'), mb_yesno)= idyes);  //esta função é para perguntar para o usuario.
end;

procedure mensagem(msg:string);
begin
   showmessage(msg);
end;
Esse vai ser o codigo da Sua Unit de Funções, agora no Formulario seu que você quer excluir registros click duas vezes no botão excluir e coloque os seguintes codigos
procedure Tfrmcadinst.spbexcClick(Sender: TObject);
begin
  if (not pergunta('Tem certeza que deseja excluir este registro?')) then exit;
  excluirregistro ('instrutores','codigo=' + txtcod.text);
  inherited;
end;
Não se esqueça de colocar em baixo da implementação do formulario a unit Funcoes em uso, por exemplo
.....

implementation

{$R *.dfm}

uses funcoes;

......

Espero que isso possa Lhe ajudar.

Link to comment
Share on other sites

  • 0
gostaria de saber como faço para criar uma mensagem em português no seguinte código, questionando o usuário.

if MessageDlg('Tem certeza que deseja excluir esse aluno?',

mtwarning,[mbYes,mbNo],0) = mrYes then // se yes

se poderem gostaria de uma ajuda obrigado.

robosa, esta pergunta já está sendo respondida neste outro tópico: Caixa De Confirmação De Exclusão, Você deseja apagar esse cadastro? S ou N. - por fa, aproveite-e e tire dúvidas ref. ao assunto lá - estou fechando este tópico.

Abraços

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...