Como apresentar menssagem SIM ou NAO?

Delphi

26/11/2004

Quero apresentar uma menssagem:

´Deseja imprimir?´

Ai aparece as opçoes SIM, NAO, CANCELAR

Como fazer?

Sem mais...


Wgm8

Wgm8

Curtidas 0

Respostas

Silviogs

Silviogs

26/11/2004

Carmo amigo,


existe os fontes da vlc que modifica as mensagens que estão e inglês para português.

Mande-me um e-mail que te mando o aquivo zipado OK!.


Atenciosamente,


Silvio Guedes.
silvio.guedes@ig.com.br


GOSTEI 0
Massuda

Massuda

26/11/2004

Quero apresentar uma menssagem: ´Deseja imprimir?´ Ai aparece as opçoes SIM, NAO, CANCELAR Como fazer?


Use a função MessageDlg() definida na unit Dialogs. Por exemplo:
uses
  Dialogs,
  Controls,
  // ...

var
  Resultado: Integer;

begin
  // ...
  Resultado := MessageDlg(´Deseja imprimir?´, mtConfirmation, [mbYes, mbNo, mbCancel], 0);
  case Resultado of 
    mrYes: // usuário clicou Sim
    mrNo: // usuário clicou Não
    mrCancel: // usuário clicou Cancelar
  end;
  // ...



GOSTEI 0
Rômulo Barros

Rômulo Barros

26/11/2004

Var
   Resposta : Word;
Begin
  Resp := MessageDlg(´Desejas Imprimir?´,mtConfirmation,[mbYesNoCancel],0);
  Case Resposta Of
     MrYes      : ShowMessage(´Clicou em SIM´);
     MrNo       : ShowMessage(´Clicou em NÃO´);
     MrCancel : ShowMessage(´Clicou em CANCELAR´);
     Else
          ShowMessage(´Clicou em "FECHAR JANELA"´);
  End;
End;



GOSTEI 0
Xtreme

Xtreme

26/11/2004

Quero apresentar uma menssagem: ´Deseja imprimir?´ Ai aparece as opçoes SIM, NAO, CANCELAR Como fazer? Sem mais...


var resp : integer;
begin
   resp := application.messagebox(´Deseja Imprimir?´,´Confirma´,mb_iconquestion+mb_yesnocancel);
   case resp of
      idyes : showmessage(´Sim´);
      idno :  showmessage(´Nao´);
      idcancel : showmessage(´Cancela´);
   end;
[/code]


GOSTEI 0
Rômulo Barros

Rômulo Barros

26/11/2004

[quote:fd4010dfff=´wgm8´]Quero apresentar uma menssagem: ´Deseja imprimir?´ Ai aparece as opçoes SIM, NAO, CANCELAR Como fazer? Sem mais...


var resp : integer;
begin
   resp := application.messagebox(´Deseja Imprimir?´,´Confirma´,mb_iconquestion+mb_yesnocancel);
   case resp of
      idyes : showmessage(´Sim´);
      idno :  showmessage(´Nao´);
      idcancel : showmessage(´Cancela´);
   end;
[/code][/quote:fd4010dfff]

:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:


GOSTEI 0
Xtreme

Xtreme

26/11/2004

[quote:5c5e746433=´Undeclared Identifier´]
[quote:5c5e746433=´wgm8´]Quero apresentar uma menssagem: ´Deseja imprimir?´ Ai aparece as opçoes SIM, NAO, CANCELAR Como fazer? Sem mais...


var resp : integer;
begin
   resp := application.messagebox(´Deseja Imprimir?´,´Confirma´,mb_iconquestion+mb_yesnocancel);
   case resp of
      idyes : showmessage(´Sim´);
      idno :  showmessage(´Nao´);
      idcancel : showmessage(´Cancela´);
   end;
[/code][/quote:5c5e746433]

:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:[/quote:5c5e746433]
Bom cara é o seguinte usando MessageDlg as opcoes Sim, nao e Cancela aparecem em ingles por isso coloquei a opcao do Application.messageBox, e outra a forma com a qual vc colocou o exemplo esta incorreta faltou colocar ´,´ entre as opcoes de botoes, so isso.
Var
   Resposta : Word;
Begin
  Resposta := MessageDlg(´Desejas Imprimir?´,mtConfirmation,[mbYes, mbNo, mbCancel],0);
  Case Resposta Of
     MrYes      : ShowMessage(´Clicou em SIM´);
     MrNo       : ShowMessage(´Clicou em NÃO´);
     MrCancel : ShowMessage(´Clicou em CANCELAR´);
     Else
          ShowMessage(´Clicou em "FECHAR JANELA"´);
  End;



GOSTEI 0
Rômulo Barros

Rômulo Barros

26/11/2004

Bom cara é o seguinte usando MessageDlg as opcoes Sim, nao e Cancela aparecem em ingles por isso coloquei a opcao do Application.messageBox...


[color=green:0daea31deb][b:0daea31deb] :arrow: Beleza, cara. Não sabia que era em portugués que ele queria. Mas, se for o caso, questão resolvida.[/b:0daea31deb][/color:0daea31deb]

e outra a forma com a qual vc colocou o exemplo esta incorreta [color=red:0daea31deb][b:0daea31deb]faltou colocar ´,´[/b:0daea31deb][/color:0daea31deb] entre as opcoes de botoes, so isso...


[color=green:0daea31deb][b:0daea31deb] :arrow: Não... Eu tenho certeza de que [u:0daea31deb]não está [/u:0daea31deb]faltando nada. Mesmo assim, valeuuuu[/b:0daea31deb][/color:0daea31deb]


GOSTEI 0
Xtreme

Xtreme

26/11/2004

[quote:d2dab79ce4=´Undeclared Identifier´]
Bom cara é o seguinte usando MessageDlg as opcoes Sim, nao e Cancela aparecem em ingles por isso coloquei a opcao do Application.messageBox...


[color=green:d2dab79ce4][b:d2dab79ce4] :arrow: Beleza, cara. Não sabia que era em portugués que ele queria. Mas, se for o caso, questão resolvida.[/b:d2dab79ce4][/color:d2dab79ce4]

e outra a forma com a qual vc colocou o exemplo esta incorreta [color=red:d2dab79ce4][b:d2dab79ce4]faltou colocar ´,´[/b:d2dab79ce4][/color:d2dab79ce4] entre as opcoes de botoes, so isso...


[color=green:d2dab79ce4][b:d2dab79ce4] :arrow: Não... Eu tenho certeza de que [u:d2dab79ce4]não está [/u:d2dab79ce4]faltando nada. Mesmo assim, valeuuuu[/b:d2dab79ce4][/color:d2dab79ce4][/quote:d2dab79ce4]

Beleza cara, nem da nada nao, peço até desculpas. Espero que pelo menos tenhamos ajuda o cara com a duvida dele so isso.


GOSTEI 0
POSTAR