Parece que no exemplo que o @Daniel Simoes falou, tem o tipo da operação, que indica o que fazer.
procedure TFormPrincipal.ACBrTEFD1ExibeMsg(Operacao: TACBrTEFDOperacaoMensagem;
Mensagem: String; var AModalResult: TModalResult);
var
Fim : TDateTime;
OldMensagem : String;
begin
case Operacao of
opmOK:
begin
if ACBrTEFD1.GPAtual = gpPayGoWeb then
PayGoWebExibeMensagem( Mensagem, tmOperador, CMilissegundosMensagem)
else
AModalResult := MessageDlg( Mensagem, mtInformation, [mbOK], 0);
end;
opmYesNo:
AModalResult := MessageDlg( Mensagem, mtConfirmation, [mbYes, mbNo], 0);
opmExibirMsgOperador:
MensagemTEF(Mensagem,'') ;
opmRemoverMsgOperador:
MensagemTEF(' ','') ;
opmExibirMsgCliente:
MensagemTEF('', Mensagem) ;
opmRemoverMsgCliente:
MensagemTEF('', ' ') ;
opmDestaqueVia:
begin
OldMensagem := lMensagemOperador.Caption;
try
{ Aguardando 3 segundos }
Fim := IncSecond(now, 3) ;
repeat
MensagemTEF(Mensagem + ' ' + IntToStr(SecondsBetween(Fim,now)), '');
Sleep(200) ;
until (now > Fim) ;
finally
MensagemTEF(OldMensagem, '');
end;
end;
end;
end;
Repara o case Operacao.
opmExibirMsgOperador, opmRemoverMsgOperador
opmExibirMsgCliente, opmRemoverMsgCliente