Tserial abschiessen

[Klaus01]

Das Problem ist, dass Dein Programm in der Schleife steckt
und keine Systemmeldungen verarbeitet.

Delphi-Quellcode:

procedure TSS.tC_SerialRxData(Sender: TObject); 
  Var C : Char; 
begin 
  While tC_Serial.ReadChar(C)>0 do Begin 
    Application.ProcessMessages; // <----
    Case C of 
      #2 : HS:=''; 
      #3 : Begin 
             tC_String:=HS; 
           End; 
      Else If Length(HS)<100 Then HS:=HS+C; 
    End; 
  End; 
end;

Könnte vielleicht etwas Abhilfe bringen.

Grüße
Klaus