Как расположить окно поверх другого, когда выполняется длинный пр

← →
Youta (2006-07-19 15:26) [0]

Уважаемые мастера! Как расположить окно поверх другого, когда выполняется длинный процесс, чтобы на нем отображался прогрессбар с кнопкой отмена?

← →
Elen © (2006-07-19 15:41) [1]

Для нужного в верх окна выставь StayonTop в Form.FormStyle

← →
Amoeba © (2006-07-19 16:20) [2]

> Youta (19.07.06 15:26)

Если не забуду, то завтра вышлю рабочую демку (есть в запасе) как раз на данный случай. Давай адрес.

> Elen © (19.07.06 15:41) [1]
> Для нужного в верх окна выставь StayonTop в Form.FormStyle

Это не поможет (кнопка отмены просто так работать не будет). Задача решается с использование доп. потока.

← →
!_SM_! (2006-07-19 18:39) [3]

Для кнопки отмена можно и без доп. потока

FStop: Boolean; .... FStop:=False; while True do begin Form2.ProgressBar.Position:=Form2.ProgressBar.Position+1; .... if FStop then Break; Application.ProcessMessage; end;

соответственно на нажатие кнопки "Отмена" присваевоем глоб. переменной Fstop:=True;
ну и Elen © (19.07.06 15:41) [1] до кучи.

← →
youta (2006-07-20 07:05) [4]

а как вызвать-то окно наверх???
Form.showmodal - не пойдет же:(

← →
youta (2006-07-20 07:07) [5]

ааа, просто show:)) спасибо всем!!!!!!!!

← →
youta (2006-07-20 07:11) [6]

теперь другая проблема - кнопка Отмена не отображается

← →
tButton © (2006-07-20 08:23) [7]

перерисуй окно после показывания

← →
Плохиш © (2006-07-20 10:43) [8]

> youta (20.07.06 07:05) [4]
> а как вызвать-то окно наверх???
> Form.showmodal - не пойдет же

1. Посылаешь себе сообщение
2. Делаешь ShowModal
3. В обработчике сообщения производишь требуемую обработку

> youta (20.07.06 07:11) [6]
> теперь другая проблема - кнопка Отмена не отображается

Повторяю свое предложение: сообщи адрес куда выслать готовый полностью рабочий пример кода, целиком соответствующий твоей задаче (все проблемы в нем давно уже были решены). Если не хочешь получить реальную и исчерпывающую помощь, то мучайся.

← →
youta (2006-07-20 11:36) [10]

Электронный адрес: k_tanyak@mail.ru

Выслал.

Да еще, если ты вдруг не знал об этом!

Обнавляй состояние прогресса записывай в какую нибудь глобальную переменную, а сам индикатор обновляй по таймуру!
Это сильно ускорит работу программы!
var fProgress: integer; ... inc(fProgress ); ... procedure TFmMain.InterfaseTimerTimer(Sender: TObject); begin ProgressBar.Position:= fProgress; end;

Как расположить окно поверх другого, когда выполняется длинный пр Найти похожие ветки