delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته
في الفورم 1 لدي جملة for والتي تستغرق5 ثواني
انشأت فورم2 ليظهر اول جملة for ويختفي في النهاية (للاعلام بأن الكود يعمل ولم ينتهِ)
الفورم2 فيه image-panel-lable لكن هذه المكونات لا تظهر في الفورم بسبب جملة for - طبعاً المكونات تظهر بدون جملة for

كود :
begin
  Form2.Show;
  for i:= 1 to 100000 do
  Label1.Caption := IntToStr(i);
  Form2.Close;
end;

فكيف الحل ؟

وعليكم السلام ورحمة الله و بركاته.
في مكان show ، جرب showmodal

(20-12-2020, 05:13 AM)Delphi2020 كتب : [ -> ]وعليكم السلام ورحمة الله و بركاته.
في مكان show ، جرب showmodal

استاذي الكريم
في حال اظهرت الفورم2 SHOWMODAL فإن جملة FOR تتوقف ولا تعمل الى ان تغلق الفورم2

كود :
var i : integer;
begin
  Form2.Show;
  for i:= 1 to 100000 do begin
  Label1.Caption := IntToStr(i);
  Application.ProcessMessages;
  end;
  Form2.Close;
end;

(21-12-2020, 02:35 PM)محمد عبد العزيز كتب : [ -> ]
كود :
var i : integer; begin Form2.Show; for i:= 1 to 100000 do begin Label1.Caption := IntToStr(i); Application.ProcessMessages; end; Form2.Close; end;

كل الشكر لك استاذي الكريم
هذه الطريقة تمام والتي اعتبرها بديلة عن طريقة ربط بروكسبار بكود ( - اي كود - for-update) الذي يستغرق وقتاً للانتهاء

samnaj00

Delphi2020

samnaj00

محمد عبد العزيز

samnaj00