Sers,
ich habe folgende Funktion um die Ankommenden Strings eines TIdTCPClients zu empfangen. Das funktioniert soweit auch gut,
wenn ich aber versuche die Form zu verschieben hängt sich das Programm auf. Der "Rahmen" ,der beim verschieben angezeigt wird, friert ein und die Maus kann ich auch nicht mehr auf die Taskleiste ziehen vorher hält mich eine Unsichtbare Wand auf ... Das ganze kann man nur mach mit dem Taskmgr beenden.
Das Interval des Timers ist 300, ein Antifreeze ist auch vorhanden mit einem IdleTimeOut von 250 und OnlyWhenIdle true.
Delphi-Quellcode:
procedure TForm1.Read_TimerTimer(Sender: TObject);
var
s: string;
begin
try
repeat
Application.ProcessMessages;
s := Command_TCP.ReadLn;
if s <> '' then
begin
Listbox1.Items.Add(s);
end;
until s = '';
except
Command_TCP.Disconnect;
end;
end;
greetz