Janela de Monitoramento
|
Início Anterior Próximo |
|
O VisualBasic utiliza o TEditBox com a propriedade MultiLine igual a True. Você também pode utilizar um ListBox.
|
|
|
//Concatena hora e insere no TMemo
|
procedure TForm1.InsereDado(nPorta:integer;sDado: string);
|
begin
|
memStatus.Lines.Add(TimeToStr(Time) +
|
': <' +
|
IntToStr(nPorta)+'> '+sDado);
|
|
end;
|
|
|
InsereDado(Porta,'Seu comentário');
|
|
|