dialogs..

Delphi

23/07/2006

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

Curtidas 0

Respostas

Bruno Belchior

Bruno Belchior

23/07/2006

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



GOSTEI 0
Gigatel

Gigatel

23/07/2006

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


GOSTEI 0
Bruno Belchior

Bruno Belchior

23/07/2006

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


GOSTEI 0
Gigatel

Gigatel

23/07/2006

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


GOSTEI 0
Bruno Belchior

Bruno Belchior

23/07/2006

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;



GOSTEI 0
Gigatel

Gigatel

23/07/2006

OK, VLW DEU CERTIM...T+


GOSTEI 0
POSTAR