Форум: "Основная";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];
Вниз
Как изменить в приложении главное окно на другое Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
