Criar Uma Mensagem De Dialogo Em Delphi Em PortuguÊs

[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.

Editado Agosto 14, 2007 por Micheus
Não observação do item 3.7 das regras do forum - NÃO digite em caixa alta (1º aviso)

[robinhocne]

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.

[Micheus]

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