Скачать: CL | DM;

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"

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c