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]

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

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

Сомневаюсь!

Fay © (02.08.05 17:49) [8]

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

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

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