Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Если две формы равнозначны, то как выбрать главную? 
V
    Опции темы
MLS
Дата 20.2.2006, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 3.12.2005

Репутация: нет
Всего: нет



У меня такая проблема. Значит, при запуске программы юзер выбирает в маленьком окошке дальнейший режим работы, и в зависимости от выбора появляется одна из двух форм. Эти формы, по большому счёту, равнозначны, между ними можно переключаться уже в процессе работы. Но беда в том, что если главной сделать одну из этих форм, то при работе со второй будет маленькая проблемка - при сворачивании она появляется не на панели задач, а над кнопкой "Пуск", то есть эта форма работает не как само приложение, а как какое-то дополнительное окно. Как от этого избавиться?
Плюс, ненужная (неактивная) вторая форма висит в памяти и её нельзя выгрузить, а то приложение закроется (это не столь критично, но всё же). Если бы можно было менять главную форму в процессе работы проги, все проблемы решились бы, но так делать, насколько я знаю, нельзя. Если есть варианты, подскажите, пожалуйста.
Всем заранее спасибо.
PM   Вверх
Poseidon
Дата 20.2.2006, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133





--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Демо
Дата 20.2.2006, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50



Я бы немного изменил пример, в соответствии с условиями задачи:

На форме Form1 лежит Edit1 и кнопка. ПОсле ввода номера формы в Edit и нажатия кнопки происходит возврат и создание соответствующей формы.

Код

program Project1;

uses
  Forms, SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

var
  n: String;
{$R *.res}


begin
  Application.Initialize;
  with TForm1.Create(nil) do
  begin
    ShowModal;
    n := Edit1.Text;
    Free;
  end;
  if n='2' then Application.CreateForm(TForm2, Form2);
  if n='3' then Application.CreateForm(TForm3, Form3);
  Application.Run;
end.




--------------------
    
PM MAIL ICQ Skype   Вверх
MLS
Дата 20.2.2006, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 3.12.2005

Репутация: нет
Всего: нет



Poseidon, спасибо, но это не совсем то, что нужно. В начале в любом случае создаётся стартовая форма, на которой пользователь делает выбор одной из двух рабочих форм. Когда стартовая форма создаётся, она становится главной. Тогда любая из двух форм (в зависимости от выбора) станет как бы дочерней. А мне этого не надо (по описанной выше причине).
PM   Вверх
MLS
Дата 20.2.2006, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 3.12.2005

Репутация: нет
Всего: нет



Демо, спасибо большое! То, что нужно.
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0620 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.