Janela de Monitoramento
Início  Anterior  Próximo



Apesar de não fazer parte propriamente do fluxo de atendimento, uma área onde se monitora o que está acontecendo é muito útil.
 
Aqui utilizamos um objeto TMemo, que é uma área de texto com possibilidade de inserir várias linhas.

O VisualBasic utiliza o TEditBox com a propriedade MultiLine igual a True. Você também pode utilizar um ListBox.  
 
Criaremos uma procedure (sub-rotina) que simplesmente adiciona uma linha neste TMemo, junto com a hora e o canal corrente. Esta rotina chama-se InsereDado:
 
//Concatena hora e insere no TMemo  
procedure TForm1.InsereDado(nPorta:integer;sDado: string);  
begin  
  memStatus.Lines.Add(TimeToStr(Time) +   
                      ': <' +      
                      IntToStr(nPorta)+'> '+sDado);  
 
end;  
 
Desta maneira, sempre que quisermos adicionar um comentário de status, bastará chamar a procedure InsereDado assim:
 
InsereDado(Porta,'Seu comentário');