Selecao DevMedia QUERO SER PRIME

Fórum dialogs.. #325919

23/07/2006

0

e aí galera...tem como adaptar esta funação
    if MessageDlg(´Deseja dar saída a O.S. do cliente  ´ + _FORM_OS_NAV.BD_OFC_ELEGS_OOE_NOME.Value + ´ ?´,mtConfirmation,[mbYes,mbNo],0)<>mrYes then Abort;



para esta ?


   if Application.MessageBox(´Deseja dar saída a O.S. do cliente´ , ´Pergunta...´, MB_ICONQUESTION + MB_YESNO) = IDYES then


a de baixo tem como deixar as questões e português dispensando o tradutor do delphi..pararece que estes tradutores dão bug no programa...vlw t+


Gigatel

Gigatel

Responder

Posts

24/07/2006

Bruno Belchior

if Application.MessageBox(´Deseja dar saída a O.S. do cliente´ , ´Pergunta...´,
    MB_ICONQUESTION + MB_YESNO) <> IDYES then
  Abort;



Responder

Gostei + 0

24/07/2006

Gigatel

[quote:c2cfc8b5db=´Bruno Belchior´]
if Application.MessageBox(´Deseja dar saída a O.S. do cliente´ , ´Pergunta...´,
    MB_ICONQUESTION + MB_YESNO) <> IDYES then
  Abort;
[/quote:c2cfc8b5db]

Blz..más num tem como eu colocar o nome do cliente não ? a idéia e fazer a mesma coisa que o outro faz... perguntando se que dar saida na OS do cliente fulano de tal...para isto está função tem que estar tbm ou uma outra alternativa

_FORM_OS_NAV.BD_OFC_ELEGS_OOE_NOME.Value 


vlw..t+


Responder

Gostei + 0

24/07/2006

Bruno Belchior

é só concatenar o primeiro parâmetro da funcão com o valor do Field em questão... (como está feito no exemplo)


Responder

Gostei + 0

24/07/2006

Gigatel

fiz assim..
if Application.MessageBox(´Deseja dar saída a O.S. do cliente´+´_FORM_OS_NAV.BD_OFC_ELEGS_OOE_NOME.Value + ´?´  , ´Pergunta...´,
    MB_ICONQUESTION + MB_YESNO) <> IDYES then
  Abort;


dá este erro...

[Error] Unit28.pas(1224): Illegal character in input file: ´?´ ($3F)

..o que será ? vlw


Responder

Gostei + 0

24/07/2006

Bruno Belchior

if Application.MessageBox(PAnsiChar(´Deseja dar saída a O.S. do cliente´+_FORM_OS_NAV.BD_OFC_ELEGS_OOE_NOME.AsString+ ´?´), ´Pergunta...´,
    MB_ICONQUESTION + MB_YESNO) <> IDYES then
  Abort;



Responder

Gostei + 0

25/07/2006

Gigatel

OK, VLW DEU CERTIM...T+


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar