Скачать: CL | DM;

progress   Найти похожие ветки 

← →
mazepa   (2005-08-02 16:11) [0]

procedure TForm1.FormCreate(Sender: TObject);
var     i:integer;
begin
 for i:=1 to 1000 do
   begin
     progressbar1.position:=i;
     application.processmessages;
   end;
end;

че он появляется сразу полным???

---

← →
Defunct ©   (2005-08-02 16:17) [1]

> mazepa  

А min/max Пушкин задавать будет? А Position к min прировнять, тоже Пушкин должен?

---

← →
Аст   (2005-08-02 16:18) [2]

Потому что for i:=1 to 1000 do "пробегает" мгновенно:)
Вставь задержки и наслаждайся...

---

← →
MBo ©   (2005-08-02 16:20) [3]

>Вставь задержки и наслаждайся
Да все равно нечем там будет в OnCreate наслаждаться...

---

← →
mazepa   (2005-08-02 16:39) [4]

у пушкина усе в порядке %)

application.ProcessMessages;
AssignFile(f,"c:\si2k\f1.out");
Reset(f);
i:=1;
while not Eof(f) do
 begin
   Readln(f, s);
   Delete(s,1,pos(chr(9),s));
   p:=leftstr(s,pos(chr(9),s)-1);
   if leftstr(p,1)="8" then
   begin
     ...
     findcel(p);
     view.Cells[1,i]:=price.Cells[3,cel];
     ...
     ProgressBar1.Position:=i;
   end;
 end;
CloseFile(f);

так вот при oncreate прогресс них не показывает а если вынести процедуру в буттон клик тада показывает... на форм онактив выдает ошибки всякие мерзкие

---

← →
Александр Иванов ©   (2005-08-02 16:41) [5]

onShow попробуй

---

← →
mazepa   (2005-08-02 16:56) [6]

procedure TForm1.FormShow(Sender: TObject);
var     i:integer;
begin
for i:=1 to 10 do
begin
 progressbar1.Position:=i;
 sleep(1);
 application.ProcessMessages;
end;
end;

спит и показывает сразу полный :(

---

← →
mazepa   (2005-08-02 17:00) [7]

все всем спасибо онпаинт рулит

---

← →
Fay ©   (2005-08-02 17:49) [8]

2 mazepa   (02.08.05 17:00) [7]
>> все всем спасибо онпаинт рулит

Сомневаюсь!

---

← →
Defunct ©   (2005-08-02 21:35) [9]

Fay ©   (02.08.05 17:49) [8]

Все может быть..

Когда-то в детстве, написав первую резидентную программу (она повышала яркость видеосигнала дерьмовенького видеоадаптера), с удивлением обнаружил, что вешаясь на прерывание дисковода! (int 0Eh) программа работает надежней чем если повесить ее на прерывание таймера (int 8h).

---

← →
Fay ©   (2005-08-02 21:38) [10]

2 Defunct ©   (02.08.05 21:35) [9]
Мне в этом отношении (не)повезло - что-либо серьёзное писал уже под Wn32.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c