Hi DelphiManiac,
Delphi-Quellcode:
procedure SchreibeLese;
var
b: Boolean;
begin
b := MeinTimer.Enabled;
MeinTimer.Enabled := False;
Schreibe
Application.ProcessMessages;
Lese;
MeinTimer.Enabled := b;
end;
So würd ich es machen. Damit wird der Timer in Deinem "Thread" für die Dauer des Prozeduraufrufs deaktiviert und nach Fertigstellung auf den ursprünglichen Stand zurückversetzt.
Der Boolean ist nur dafür da, falls Du die Prozedur auch von anderer Stelle aus aufrufst und der Timer gerad nicht läuft. Würde man den immer am Ende anmachen, käme es ja sonst zu Problemen.
Gruß Assertor
Edit: War doch etwas wortkarg
