Cannot make a visible window modal.

← →
Viktor (2003-05-05 18:55) [0]

Привет мастерам!
Не могу понять где ошибка

procedure TFrmModel.N1Click(Sender: TObject);
begin
with TFrmCreateStandartModel.Create(Self) do
begin
Caption := "Добавление стандартной модели";
try
if ShowModal = mrOk then
begin
.............
end;
finally
Free;
end;
end;
end;

Спасибо за ранее.

← →
Anatoly Podgoretsky (2003-05-05 19:00) [1]

Visible := FALSE;

← →
Viktor (2003-05-06 00:10) [2]

>Anatoly Podgoretsky
Visible := True;

Дело в том что она вначале была
FormStyle := fsMDIChild

вызывал так:
if not Assigned(FrmCreateStandartModel) then
Application.CreateForm(TFrmCreateStandartModel, FrmCreateStandartModel);
FrmCreateStandartModel.Show;

а теперь хочу чтобы она перекрывала другие окна,
пока не нажмут Ок или Отмена

← →
VID (2003-05-06 01:41) [3]

ну... SetWindowPos можно использовать

← →
ultrasuper_asd (2003-05-06 02:11) [4]

прямо в инспекторе обьектов поставь форме Visible = FALSE
и всё будет тип-топ...

← →
Viktor (2003-05-06 03:23) [5]

Спасибо.
На это не обращал внимания.
Может объяснит мне кто-нибудь - почему.

← →
Zacho (2003-05-06 06:48) [6]

> Viktor (06.05.03 03:23)

А чего объяснять ? Если ты делаешь FormStyle := fsMDIChild то Visible сразу становится true. При присвоении FormStyle := fsNormal значение Visible не изменяется. Поэтому при попытке ShowModal получаешь заслуженное "Cannot make a visible window modal"

Cannot make a visible window modal. Найти похожие ветки