Ook de eerste opzet met een Thread werkt niet.
Het is mijn eerste Thread die ik gemaakt heb, dus er kan mogelijk nog wel het een en ander verbeterd worden 
Deze Thread geeft een vertraging van ca. 5 Sec. en laat dan het trilmotortje even draaien.
Als ik alleen "Createthreads" start, dan werkt dat goed (na 5 sec. draait het motortje even).
Maar als ik op Button12 klik, dan verschijnt het Telefoon scherm, en het motortje draait helemaal niet, ook niet als Telefoon scherm afgesloten wordt en de App weer getoond wordt.
Het lijkt er dus op dat de Thread ook stopt als het Telefoon scherm verschijnt...
Code:
procedure TForm1.Button12Click(Sender: TObject);
begin
Createthreads;
PhoneDialerService.Call('06-12345678');
end;
procedure TForm1.Createthreads;
begin
TThread.CreateAnonymousThread(procedure ()
var
I: Integer;
Total: Integer;
begin
for I := 0 to 50 do
begin
Sleep(100);
end;
TThread.Synchronize (TThread.CurrentThread,
procedure ()
begin
Tril_Motor();
end);
end).Start;
end;
Edit:
Een Label vullen wordt wel gedaan:
Code:
TThread.Synchronize (TThread.CurrentThread,
procedure ()
begin
//Tril_Motor();
Label1.Text := 'Test';
end);
end).Start;
De Thread lijkt dus "wel" door te lopen, maar er is blijkbaar geen bevoegdheid om het motortje te laten draaien...
Dus mogelijk is stap 1 nu klaar.
Hoe kan ik met Code de App weer op de Voorgrond krijgen, en het Telefoon scherm op de achtergrond denken jullie ?
Bookmarks