26.06.2009, 17:13
|
|
Banned
Регистрация: 12.06.2009
Сообщений: 8
Провел на форуме:
26426
Репутация:
1
|
|
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=true;
Timer1.Interval :=60;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := ProgressBar1.Position + 1;
end;
1)подскажите как сделать, чтобы по оканчанию загрузки TProgressBar выполнялась команда MessageBox ?
2)Есть Label, Button. Как сделать, чтобы при нажатии на батон, происходила проверка текста в лейбле? ну если в лейбле например введен определённый текст, который я ввёл в коде проги, то при нажатии на батон, вылетит сообщение "Верно", а если текст иной, то вылетит "Не верно" ?
Последний раз редактировалось Vish; 26.06.2009 в 17:42..
|
|
|