Modal or not Modal

← →
AlexNx (2003-12-15 17:35) [0]

Народ поможите! Как сделать следующее:
1) Вызывается форма( Form1.ShowModal<\B>)
2) Далеее нажимается кнопка и модальная форма становится немодльной и уходит в background(аналогично тому, как это делается в TotalCommander или в Frigate при копировании)

← →
AlexNx (2003-12-15 17:56) [1]

Че, никто не знает?

← →
AlexNx (2003-12-15 17:57) [2]

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

← →
Palladin (2003-12-15 17:59) [3]

Действие (копирование) происходит не "в" самой форме показываемой, а отдельным потоком, процессом или чем то там еще. Форма лишь отображает прогресс.
И кстати где этот background?

← →
VMcL (2003-12-15 17:59) [4]

Hide() ?

← →
olookin (2003-12-15 18:02) [5]

Та форма что с background - она закрывается при нажатии на кнопку... Вместо нее появляется другая, которая уже не модальная...

← →
AlexNx (2003-12-15 18:02) [6]

Понятно, что в другом процессе. Я имел ввиду, что нужно форму,которую показали модальной сделать НЕМОДАЛЬНОЙ.

← →
Плохиш_ (2003-12-15 18:03) [7]

Закрыть и открыть снова ;-)

← →
Palladin (2003-12-15 18:05) [8]

Угу...

← →
AddRef (2003-12-15 18:05) [9]

ну сделай типа того:
1. При нажатии на кнопке ModalResult := mrOk
2. В месте где вызывался этот диалог проверять, что если вернулся mrOk, то вызывать форму не в модальном режиме.

VAR
kF: TForm_Copy;
kMR: itneger;
BEGIN
kF := TForm_Copy.Create(Application);
kMR := mrCancel
try
kMR := kF.ShowModal;
if kMR = mrOk then
begin
kF.Show();
kF.StartProgress();
end;
finally
if kMR <> mrOk then kF.Release();
end;
END;

procedure TForm_Copy.btnRunBackgroudClick(Sender: TObject);
begin
ModalResult := mrOk
end;

я примерно похожую задачу так и делал

← →
Юрий Зотов (2003-12-15 19:49) [10]

> AlexNx (15.12.03 18:02) [6]

Модальную форму сделать немодальной нельзя. Можно закрыть ее и открыть снова (ее же или другую). Total Commander именно так и делает.

Modal or not Modal Найти похожие ветки