Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Хотелось бы сделать ProgressBar в модальном окне для своей программы, не знаю как... 


Yuraz   (2001-12-28 14:00) [0]

Идёт процесс секунд 10(цикл), типа группового переименования файлов, подскажите, как к этому делу прицепить ProgressBar. Спасибо.



troits   (2001-12-28 14:28) [1]

Можно вынести процедуру обработки файлов в отдельный TThread,
и из него, с помощью Synchronize, изменять значения ProgressBar -а. Потом , по OnTerminate потока, закрывать модальное окно.



Voron   (2001-12-28 14:31) [2]

В процедуре вышеуказанного переименования, там ведь цикл какой-то, да. В этом цикле оцениваем сколько времени осталось, соответсвующим образом влияем на ProgressBar.



Alex_Sudakov   (2001-12-28 17:58) [3]

И не забываем делать Application.ProgressMessages



Aleksandr   (2001-12-28 18:57) [4]

2 Alex_Sudakov
Вы имели в виду - ProcessMessages?
А с потоком мона не заморачиваться - количество файлов данного типа получить легко, перекрывается WndProc главной формы, создается юзверское сообщение WM_UpdateProgressBar, которое после каждого прохода цикла отправляется форме, имеющей ProgressBar:

//послали мессагу установить Max для progressBara и текст комментария
SendMessage(ProgressForm,WM_SetProgressMax,FileList.Count-1,Integer(sFirstMessage));

for i:=0 to FileList.Count-1 do
...
SendMessage(ProgressForm,WM_UpdateProgressBar,i,Integer(FileList.Strings[i]));

а в WndProc формы с прогрессом:
case Message.Msg of
...
WM_UpdateProgressBar : begin
ProgressBar.Position:=Msg.wParam;
Label.Caption:=String(msg.lParam);
Repaint
end
else
Inherited WndProc(Message)
end...




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.026 c
3-52473           З.Г.                  2001-12-04 07:24  2002.01.17  
Как отключить автоматическое сохранение данных в таблице, т.е. чтобы я мог внести данные и самому выбрать сохранить или не сохранять таблицу


6-52631           kostya                2001-10-22 13:31  2002.01.17  
Поиск MSSQL в локальной сети.


1-52582           Sym                   2001-12-19 16:06  2002.01.17  
Народ помогите!!!!!!!!!!!!!! За ранее СПАСИБО


14-52657          Polevi                2001-11-23 10:14  2002.01.17  
Дежавю


1-52552           Slawik                2001-12-26 11:12  2002.01.17  
колонки в DB гриде ???