Richtig? (Ich kann das jetzt nicht testen)
Ja...
Beispiel:
Delphi-Quellcode:
procedure TForm189.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
end;
procedure TForm189.FormCreate(Sender: TObject);
begin
FCount := 0;
Timer1.Interval := 25;
end;
procedure TForm189.Timer1Timer(Sender: TObject);
begin
Memo1.Lines.Add(FCount.ToString);
inc(FCount);
Sleep(100);
// Application.ProcessMessages;
dec(FCount);
end;
Einfach mal Application.Processmessage rein nehmen und "wundern"...