Hallo!
Nachdem die SyncObj unter iOS noch nicht implementiert sind... Also ein Timer...
Aber...
Beispiel:
Delphi-Quellcode:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
Memo1.Lines.add('Hier bin ich');
end;
procedure TForm2.Button2Click(Sender: TObject);
var
i : Integer;
begin
Timer1.Enabled := true; // eine Sekunde...
for i:=0 to 1000 do
begin
Spinbox1.Value := i;
Application.ProcessMessages;
Sleep(100);
end;
end;
Was Passiert?
Die Spinbox zählt genüßlich bis 1000 und dann kommt der Timercall!
Funktioniert unter IOS eigentlich irgend etwas so wie man es erwartet?
Mavarik