|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.09.2007, 13:08 | #1 |
][@|{eR
Регистрация: 06.09.2007
Сообщений: 8
|
ProgressBar
Я только начинаю программировать и не знаю многово ,
Как по нажатию батона запустить ProgressBar и что бы после завершения прогресса выводилось сообщение(showmessage)? |
07.09.2007, 13:26 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот примерчик :
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ProgressBar1: TProgressBar; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin //********* FOR ****************** for i:=ProgressBar1.Min to ProgressBar1.Max do begin ProgressBar1.Position:=ProgressBar1 .Position+1; sleep(10); end; ShowMessage('sdsdsd'); //******* END FOR ****************{} end; end.
I'm learning to live...
|
07.09.2007, 13:33 | #3 |
Форумчанин
Регистрация: 05.08.2007
Сообщений: 225
|
Создай новую форму, кинь на нее Button, Timer и ProgressBar.
Создай действие OnTimer: Код:
Interval:=250 Enabled:=False Поехали дальше... Обработчик нажатия кнопки... Включаем и выключаем таймер. Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ProgressBar | Makarov | Компоненты Delphi | 3 | 04.02.2008 22:42 |
Новый ProgressBar | Лубышев | Компоненты Delphi | 8 | 23.01.2008 12:10 |
ProgressBar | Rahim1993 | Общие вопросы Delphi | 10 | 20.01.2008 21:28 |
ProgressBar | Terran | Общие вопросы Delphi | 5 | 09.01.2008 21:18 |