VPF::Форма "Подождите" - Форум программистов

Grig

Дата 22.6.2005, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

Репутация: нет
Всего: 16

Здравствуйте!
Вот допустим я с одной формы методом Showmodal вызываю другую, но этому предшествует ряд долговыполнимых действий.
А чтоб пользователю не было так скучно, вывешиваю форму
типа "Идет загрузка данных" или что-нибудь в этом роде.
Примерно так это выглядит:

Код


procedure TFrPodg.BOpenClick(Sender: TObject);
var
begin
frwait.Show; //Форма "Подождите"
//
//Тут происходит много всякого
//
  FrVvod.ShowModal ; //и наконец открывается формочка

  frWait.Close; //а "Подождите" закрываем
end;

Проблема в следующем: Я на форму "Подождите" вешал Label а текст на ней ни фига не отображается..
Уж не знаю что и делать..

Это сообщение отредактировал(а) Girder - 22.6.2005, 10:29

--------------------

_hunter

Дата 22.6.2005, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

показывай как ты текст показывал

--------------------

Tempora mutantur, et nos mutamur in illis...

Grig

Дата 22.6.2005, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

Репутация: нет
Всего: 16

Дак, просто...
Label1.Caption:='Идет загрузка';

--------------------

mvdr

Дата 22.6.2005, 11:05 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

а извратиться с Gauge не пробовал?

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Grig

Дата 22.6.2005, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

Репутация: нет
Всего: 16

нет.. а это как?

--------------------

mvdr

Дата 22.6.2005, 11:25 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

Закладка Samples, там есть Gauge.

Код


Gauge1.Progress:=Gauge1.Progress+5;

Это свойство такое. Просто расчитай по времени сколько надо твоей проге, чтобы "загрузиться" и прибавляй это Progress так, чтобы к моменту загрузки он был равным 100

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

~FoX~

Дата 22.6.2005, 11:29 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Попробуй воткнуть Application.ProcessMessages

--------------------

…множественность никогда не следует полагать без необходимости…

Satana

Дата 22.6.2005, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5

Тебе вот сюда

Код


//Тут происходит много всякого

нужно натыкать Application.ProcessMessages.
Тогда надпись должна отображаться

--------------------

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

markowww

Дата 22.6.2005, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 27.2.2003
Где: В Вологде-где

Репутация: нет
Всего: нет

Grig
Можно запихать "много всякого" в отдельный поток, это достаточно легко.

P.S. А не разве при ShowModal выполнение главной формы не прерывается, пока дочерняя не закрыта? По-моему, у тебя "подождите" так и будет висеть.

~FoX~

Дата 22.6.2005, 12:10 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

markowww
НЕТ!

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  Form2.ShowModal;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position :=   ProgressBar1.Position + 1;
end;

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 22.6.2005, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


procedure FrVvod.OnShow();
begin
  frwait.Show;
  Application.ProcessMessages;
  // что-то делаем...
  frwait.Close;
end;

X-Vlad

Дата 22.6.2005, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

у тебя текст не показывался потому что форма не успевала перерисоватся зделай:

Код


procedure TFrPodg.BOpenClick(Sender: TObject);
var
begin
frwait.Show; //Форма "Подождите"
frwait.update;
frwait.repaint;
//
//Тут происходит много всякого
//
  FrVvod.ShowModal ; //и наконец открывается формочка

  frWait.Close; //а "Подождите" закрываем
end;

я на эти грабли уже наступал )) гы
Добавлено @ 16:00
кстати у тя есть маленькая ошибочка smile

форма "подождите" не будет закрыта пока не закроеш форму FrVvod.ShowModal . надо еще подправить код:

Код


procedure TFrPodg.BOpenClick(Sender: TObject);
begin
 frwait.Show; //Форма "Подождите"
 frwait.update;
 frwait.repaint;
    //
    //Тут происходит много всякого
    //
 frWait.Close; //а "Подождите" закрываем
 FrVvod.ShowModal ; //и наконец открывается формочка
end;

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

Grig

Дата 23.6.2005, 07:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

Репутация: нет
Всего: 16

Код


  Application.ProcessMessages;

Это весч!!!

Всем громадное спасибо!!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »