08-12-2020, Saat: 02:14
(07-12-2020, Saat: 22:32)mcuyan Adlı Kullanıcıdan Alıntı: Boş projede sorunsuz çalışıyor Thread kullanmadan.
10.3 rio kullanıyorum. Fakat kendi projeme entegre edeyim dedim. Hiç bir şekilde çıkmıyor.hata da vermiyor işin garibi. Fakat show etmiyor.
Çalışan kod:
procedure TForm1.Button1Click(Sender: TObject); begin fgActivityDialog1.Title := 'Deneme'; fgActivityDialog1.Message := 'MEsajım'; fgActivityDialog1.Show; end;
Çalışmayan Kod:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin fgActivityDialog1.Title := 'Deneme'; fgActivityDialog1.Message := 'MEsajım'; fgActivityDialog1.Show; for i := 1 to 10 do begin Button1.Text := inttostr(i); Application.ProcessMessages; sleep(200); end; fgActivityDialog1.Hide; end;
Show() işleminden önce thread veya yapmak istediğiniz operasyonları sıralayıp denediniz mi?


hata da vermiyor işin garibi. Fakat show etmiyor.