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

Как изменить в приложении главное окно на другое   Найти похожие ветки 

← →
Andrew_p ©   (2003-06-27 17:55) [0]

Как сделать так, чтобы в процессе работы приложения поменять главное окно на другое любое, которое есть в приложении. Есть ли такая возможность?
Заранее благодарен.

---

← →
Demiurg ©   (2003-06-27 18:42) [1]

Ты хочешь менять именно главное окно? Это свойство только ридонли Application.MainForm, им становится первое созданное окно в программе. Можешь поправить VCL вручную и присваивать ему что угодно :) Не рекомендую.

---

← →
andrew_p ©   (2003-06-27 19:23) [2]

Ситуация такова: при запуске приложения открывается главное окно, при выборе определенной опции это окно закрывается, открывается другое окно - и оттуда уже ведется управление программой. Если свойство Application.MainForm изменить невозможно, то что тогда можно сделать в этой ситуации?

---

← →
Serginio   (2003-06-27 19:45) [3]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619925&n=16

---

← →
andrew_p ©   (2003-06-30 10:14) [4]

Serginio
Это совсем не то, что мне надо сделать, но все-равно - СПАСИБО.

---

← →
Skier ©   (2003-06-30 10:32) [5]

>andrew_p © (27.06.03 19:23)

> Если свойство Application.MainForm изменить невозможно,
> то что тогда можно сделать в этой ситуации?

Прятать главное окно...

---

← →
Anatoly Podgoretsky ©   (2003-06-30 10:52) [6]

Изменить концепцию

---

← →
MacroDenS ©   (2003-06-30 16:07) [7]

захайдить первую форму, и пусть ее никто не видит!
Делается это так
Form1.hide; - прячем ворму с глаз долой
Form1.show; - показываем форму.

А для ведения псевдоглавного окна веди переменную и на обработчиках OnClose поставь проверку типа:
Если форма псевдоглавная то Form1.close;

И усе твои траблы пропадут сами собой

---

← →
Andrew_p ©   (2003-06-30 19:06) [8]

Спасибо, MacroDenS, я попробую.

---

← →
jack128 ©   (2003-06-30 19:17) [9]

> первое созданное окно в программе

Не совсем так. Главное окно - это первое окно созданное через Application.CreateForm(...)

---

← →
Armen   (2003-07-01 13:37) [10]

Можно, только если снова создавать Form1, Form2.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Free;
Form2.Free;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end;

---

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

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



Память: 0.47 MB
Время: 0.016 c