| Структура программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Событие на выход из процедуры, Как его сделать? Как бы сделать zip не zip'ом, чтобы архиватор не догадался Вывод JPEG из ресурса, Вывод JPEG из ресурса DBGrid, Скроллинг не работает состояние лотка cd-rom Убить приложение У меня к вам ышо вопросик есть ебаут Creating Проблемы с Query и DataSource Кодировки TMemo и XPManifest, Проблема с DOS кодировкой в Memo Файлы руссификации к ExpressQuantumGrid, ExpressMasterView, ExpressBars точный прицел принтера Как правильно реализовать многострочность в ячейке, Как правильно реализовать многострочност средства делфи для создания help'a LPT порт, Вопрос WMI на Delphi Message with Tedit, Message with Tedit TClientServer, TServerClient ComboBox, не исчезающий выпадающий список TChart Подмена ресурсов, UpdateResource для всех версий Windows Как сменить рабочий каталог Delphi7 Как анализировать отловленный exception?, Есть ли у Exception цифровые коды? OLE+WORD DelphiX, OnCollision для анимированных спрайтов, Срабатывает только на первом изображении writecomponent Модальное окно, Оказывается на заднем плане Как Вы относитесь к курящим девушкам? Priveleged Instruction, Не получается в WinXP exe, найти OER Ресурсы GDI, не освобождаюцца ресурсы защищенные страницы памяти winXP Изменение иконки в SystemTray? Запуск программы от имени другово пользователя, RunAs в Win XP Регистрация записи, В RemObjects Pascal Script ProgressBar1, как с ним работать Тормоза, Тормоза при компиляции программы. Писк в строке, НЕобходимо найти параметр в строке TMemo, Сколько строк? Обмануть Delphi, for to do Связка проги и хелпа с помощью контекстных ссылок, при показе pop-up вылетает содержание Compact Rus Popup как в Windows --> Пуск, помогите Сколько занимает папка? Следующая строка, Следующая строкачерез промежуток времяни файл, Не могу дописать файл как включить компьютер програмным способом Изменить имя компа, Изменить имя компа Обучение програмированию, Со скольки лет начинать значение до знака, надо взять пораметры до определённого зн изменение стиля WebBrowser1, где ощибка??? А что у меня TAB-Contol не работають? Переход на следующую строку в TMemo?, КАК? Работа со звуком Update Tray Компилятор, исходник... Градиентная заливка TPanel?, Как залить??? 1.fsStayOnTop и 2.TPanel не полное значение, Мемо выдает не полное значение Как извлечь дочернюю форму из Dll?, Как извлечь дочернюю форму из Dll? Синтаксис, как сохранить Скопировать файл., Чёт я затупил. Вопрос по ShellListView, Теперь уже заключительный... как узнать откуда запушен процесс Помогите сделать правильно., Бьюсь над задачей..... Извлечь часть строки, Подскажите функцию... Сравнение ADA – Delphi – Pascal, нужна литература Скопировать Html-файл, Вместе со всеми картинками, стилями и др Delphi 7 - отличия и трудности Своя коллекция компонет Не компилируется проект! Нелп!!!, ошибка в файле Buttons.res |
Платные хостинги Раскрутка сайта Книги по программированию ProgressBar1, как с ним работать
- подскажите где можно найти документацию по работе с этим компонентом или дайте пример как с ним работать - Плаха в хелпе блин - проблема в том, что я в ангиском не селён. вот - а что тебе конкретно надо?вот некоторые советы: если хочешь чтобы прогресс отображался не квадратиками а сплошной линией ставь свойствоProgressBar1.Smooth:=true; управлять индикацией можно например так: в цикле который что-то делает меняешь с нужной скоростью ProgressBar1.Position:=i; (i - нужная позиция прогрессбара от ProgressBar1.Min до ProgressBar1.Max)Код for i:=0 to 100 do begin ....... ProgressBar1.Position:=i; end;highlightSyntax('delphig1ZThl','delphi'); Это сообщение отредактировал cTePx - 23.11.2004, 18:43 - суть такога:запущен цыкл(из текста убирам лишние значения). как к этому циклу привязать ProgressBar1. - ты приведи пример цикла - Плаха Ну в общем случае будет примерно так:Код for i:=1 to max dobegin...ProgressBar1.Position:=round((i/max)*100);end;highlightSyntax('delphiOTEwYj','delphi');Так у тебя будет заполняться прогресс бар в зависимости от того на какой стадии выполнения у тебя цыкл... - cTePx Код for m:=0 to n dobegins:= Memo_ListProxy.Lines[m]; i:= pos(':',s);ip:= Copy( S,1,i-1);Edit_DNSName.Text:= ip; Ping1.DnsLookup(Edit_DNSName.Text);end;highlightSyntax('delphiTFlNTU','delphi'); - Код pb1.position:=0;pb1.max:=nfor m:=0 to n dobegins:= Memo_ListProxy.Lines[m]; i:= pos(':',s);ip:= Copy( S,1,i-1);Edit_DNSName.Text:= ip; Ping1.DnsLookup(Edit_DNSName.Text);pb1.position:=n;application.processmessages;//дает отработать системе очередь задач другим приложениям //в том числе и твоему, в том числе и обновление окон, и обно- //вление твоего pb1end;highlightSyntax('delphi0Njc5Y','delphi'); - dsergey Помойму pb1.position в данному случае нада не в n ставить а в (m/n*100) и округленное до целой части, просто чо получается на первой жеж итерации прогресс бар заполнится до максимума и все... - да ошибочка вышла, но это мелочиpb1.position:=0;pb1.max:=mfor m:=0 to n dobegins:= Memo_ListProxy.Lines[m]; i:= pos(':',s);ip:= Copy( S,1,i-1);Edit_DNSName.Text:= ip; Ping1.DnsLookup(Edit_DNSName.Text);pb1.position:=m;application.processmessages;//дает отработать системе очередь задач другим приложениям в том числе и твоему, в том числе и обновление окон, и обновление твоего pb1end; - Всем спасибо. Общими усилиям всетаки всё заработало как надо.Как говориться : "с миру по нитки каждому рубаха"итоговый код:Код pb1.position:=0;pb1.max:=100for m:=0 to n dobegins:= Memo_ListProxy.Lines[m]; i:= pos(':',s);ip:= Copy( S,1,i-1);Edit_DNSName.Text:= ip; Ping1.DnsLookup(Edit_DNSName.Text);pb1.position:=round(m/n*100);application.processmessages;//дает отработать системе очередь задач другим приложениям //в том числе и твоему, в том числе и обновление окон, и обно- //вление твоего pb1end;highlightSyntax('delphiwYTM=','delphi');может кому пригодитьсяSatana тебе отдельное спасибо  |