Как предотвратить повторный запуск формы?

← →
Matveih1 © (2008-09-18 09:22) [0]

Есть главная форма, из которой запускаются остальные не модальные формы. Как сделать проверку, что если форма была запушена, то показать ее, а не создавать новую.

← →
Dennis I. Komarov © (2008-09-18 09:29) [1]

что значит "форма была запущена"?

← →
Vlad Oshin © (2008-09-18 09:34) [2]

> что значит "форма была запущена"?

это когда наименования по умолчанию, компаненты не ровно накиданы..

← →
Matveih1 © (2008-09-18 09:36) [3]

Например в главной форме при нажатии на кнопку происходит следующее:

procedure TForm1.Button1Click(Sender: TObject); var F: TForm2; begin F := TForm2.Create(Self); try F.Show; except F.Free; end; end;

Как сделать, чтобы при повторном нажатии на кнопку не создавалась новая форма, а показывалась существующая.

← →
Vlad Oshin © (2008-09-18 09:54) [4]

procedure TForm1.Button14Click(Sender: TObject);
var
F: TForm;
begin
if Assigned(F)
then F.Show
else F := TForm.Create(Self);
try
F.Show;
except
F.Free;
end;
end;

← →
Matveih1 © (2008-09-18 10:05) [5]

не работает. При первом запуске ругается на Access violation

← →
Правильный$Вася (2008-09-18 10:07) [6]

> Как сделать, чтобы при повторном нажатии на кнопку не создавалась
> новая форма, а показывалась существующая.

тогда нужно не локальную переменную для формы создавать, а использовать ту, которую сама дельфи создает
и не разрушать ее по кнопке, а просто использовать умолчательный Hide-реакцию на закрытие
и проверять переменную на nil

← →
Vlad Oshin © (2008-09-18 10:22) [7]

можно попробовать

comp:=application.FindComponent("Forma_твоя");
if comp<>nil then

> procedure TForm1.Button14Click(Sender: TObject);
> var
> F: TForm;
> begin
> if Assigned(F)
> then F.Show

Улыбнуло :-)

Screen.Forms

← →
[i2e] (2008-09-18 14:42) [10]

При запуске формы ставил флажок, что она запущена.
Ниже - открытие двух форм по нажатию кнопок.
Может и не самое красивое решение - но работает.

procedure TMainForm.ShowIndItemClick(Sender: TObject); begin if fShowIndForm then ShowIndForm.SetFocus else begin Application.CreateForm(TShowIndForm, ShowIndForm); ShowIndForm.Show; fShowIndForm := True; end; end; procedure TMainForm.TextSItemClick(Sender: TObject); begin if fTextSForm then TextSForm.SetFocus else begin Application.CreateForm(TTextSForm, TextSForm); TextSForm.Show; fTextSForm := True; end; end;

Для MDI-формы, для проверки уже открытого файла, делал так:

// тест на повторное открытие for N1 := MDIChildCount - 1 downto 0 do if MDIChildren[N1].Caption = mfOpenFileName then begin MessageDlg("Файл " + mfOpenFileName + " уже открыт", mtInformation, [mbOk], 0); Exit; end;

Тоже работает.

Как предотвратить повторный запуск формы? Найти похожие ветки