Всем привет! У меня такой вопрос: как сделать так, чтобы после выполнения какого-либо действия в программе, происходило сохранение данных в ini-файл, но так, чтобы процесс сохранения этих данных был виден пользователю. Сам процесс сохранения данных и работа с ini-файлами не вызывает никаких затруднений, но вот визуализация данного процесса... В момент сохранения данных я показываю форму, на которой лежит компонент ProgressBar. Выполняю увеличение свойства Position у данного компонента. Но вот беда, у меня во время выполнения процесса сохранения данных виден только ProgressBar, а два лейбла, в которых написано пояснения для пользователя о том, что же в данный момент происходит, не отображаются. Они становятся видимыми только после того, как цикл заполнения ProgressBar'а закончит свою работу! Как мне сделать так, чтобы перед заполнением ProgressBar'а были видны лейблы? Спасибо!

делай Application.ProcessMessages()

или Label.Update;

тоже вариант, но обновленые метки и прогресс бар на необновленной форме выглядят довольно странно

Цитата

делай Application.ProcessMessages()

а что это вообще? Можно подробнее?
Добавлено @ 14:14
Вот код:

Код

procedure Save; var i:integer;    s:string; begin  //сохранение настроек таблицы данных в ini-файл  SaveChange.ProgressBar1.Max:=26;  SaveChange.ProgressBar1.Position:=0;  for i:=0 to 25 do    begin      s:='Col'+IntToStr(i)+'Width';      WriteIni('TableOptions',s,IntToStr(Form3.DBGridEh1.Columns[i].Width));      SaveChange.ProgressBar1.Position:=SaveChange.ProgressBar1.Position+1;    end; end; procedure TSaveChange.FormPaint(Sender: TObject); begin  Application.ProcessMessage;  Save; end;

Но это не помогает!

_hunter а если использовать его, то можно наткнуться на неприятности, а именно:
другие контролы смогут быть задействованы во время выполнения цикла, а если на форме есть контролы влияющие на цикл то, какой-нить злобный Ю-зверь кликнув на онный котрол получит ошибку, чем будет удивлен.

Цитата(_hunter @ 19.1.2005, 14:04)

обновленые метки и прогресс бар на необновленной форме выглядят довольно странно

тады можно Form.Update;

Добавлено @ 14:17
Application.ProcessMessage в цикл засунь

вызов этого метода заставляет Application все, посланные ему, сообщения
Добавлено @ 14:20
z-END, контролы, могущие повлиять на процесс, следует блокировать ( дабы соблазна у пользователя даже не возникло )

Поместил в цикл, все работает. Только вот теперь не соображу, как же такую форму закрыть? Простомы методом Close она не закрывается, просто никак не реагирует! Вот лажа! А в каком обработчике событий писать, не знаю. Плиз, подскажите!

останови цикл -- дожна закрыться

Попробуй так (код непроверял но должно быть зер гуд)

Код

procedure SaveIni; begin Screen.Cursor := crHourGlass; SaveChange := TSaveChange.Create(Application); SaveChange.Show; SaveChange.DoSave; FreeAndNil (SaveChange); Screen.Cursor := crDefault; end; ... {далее в SaveChange public процедура} procedure TSaveChange.DoSave; var i: Integer; begin SaveChange.ProgressBar1.Max := 26; SaveChange.ProgressBar1.Position := 0; for i := 0 to 25 do   begin     s:='Col'+IntToStr(i)+'Width';     WriteIni('TableOptions',s,IntToStr(Form3.DBGridEh1.Columns[i].Width));     SaveChange.ProgressBar1.Position:=SaveChange.ProgressBar1.Position+1;     Application.ProccessMessages;   end; end;

Application.ProccessMessages
в этот момент программа приостанавливает, например цикл и дает системе возможность отработать все сообщения, прорисовки, и не только твоего приложения.

Код

For i:=0 to 100000 do begin //что-то делаем ProcessBar1.Position:=i;//выводим процесс Application.ProccessMessages;//без этой строки ProcessBar будет стоять на месте and;

Цитата

останови цикл -- дожна закрыться

как это должна закрыться? ведь никто же не вызывал метод закрытия окна! как так? поясните, пожалуйста. Прорисовывает уже нормально, но вот закрыть после прорисовки окно не могу! спасибо!

должна закрыться при вызове соотв. метода

ты, лучше, код покажи -- явно там косяки

Процедуру Save надо убрать из метода FormPaint (а то эта процедура постоянно вызывается при прорисовке )

Я выяснил причину ошибки. Форма была модальной! Я убрал этот косяк и все нормально работает. Но вот беда, нельзя ли сделать так, чтобы и модальная форма нормально закрывалась? А то получается, только немодальной пользоваться, да?