Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

progress [D6, WinXP]

mazepa © (2005-08-02 16:11:00)
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to 1000 do
begin
progressbar1.position:=i;
application.processmessages;
end;
end;

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

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

Defunct (2005-08-02 21:35:00) [2]
Fay © (02.08.05 17:49) [8]

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

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

Fay (2005-08-02 17:49:00) [3]
2 mazepa (02.08.05 17:00) [7]
>> все всем спасибо онпаинт рулит

Сомневаюсь!

mazepa (2005-08-02 17:00:00) [4]
все всем спасибо онпаинт рулит

mazepa (2005-08-02 16:56:00) [5]
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;

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

Александр Иванов (2005-08-02 16:41:00) [6]
onShow попробуй

mazepa (2005-08-02 16:39:00) [7]
у пушкина усе в порядке %)

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 прогресс них не показывает а если вынести процедуру в буттон клик тада показывает... на форм онактив выдает ошибки всякие мерзкие

MBo (2005-08-02 16:20:00) [8]
>Вставь задержки и наслаждайся
Да все равно нечем там будет в OnCreateнаслаждаться...

Аст (2005-08-02 16:18:00) [9]
Потому что for i:=1 to 1000 do "пробегает" мгновенно:)
Вставь задержки и наслаждайся...

Defunct (2005-08-02 16:17:00) [10]
> mazepa

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »