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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> КАК ОТКРЫТЬ ФОРМУ ПРИ ЗАПУСКЕ ПРИЛОЖЕНИЯ 
:(
    Опции темы
Гость_joker
  Дата 15.8.2003, 19:04 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











У МЕНЯ 2 ФРМЫ А МНЕ НАДО ЧТОБЫ ФОРМА 2 ЗАПУСКАЛАСЬ САМА ПРИ ЗАПУСКЕ ПРИЛОЖЕНИЯ КАК SHOW MODAL
  Вверх
&-ray
Дата 15.8.2003, 19:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 406
Регистрация: 15.4.2003
Где: Казахстан, г Аста на

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



выложи таймер на главную форму с интервалом в несколько миллисекунд и enabled:=true

в обработчике timerontimer напиши

timer.enabled:=false;
form2.showmodal;

Это сообщение отредактировал(а) &-ray - 15.8.2003, 19:30


--------------------
"Совсем неважно от чего помрешь, ведь куда важнее - для чего родился..." С.Б.

--------------------
И снова мышь беру я в руки
Куда иду? - Конечно в сруки!
PM MAIL WWW   Вверх
<Spawn>
Дата 15.8.2003, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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



А можно просто в OnShow первой формы поставить Form2.ShowModal;


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
<Spawn>
Дата 15.8.2003, 19:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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



Хотя не совсем так) Я не сразу подумал. Сначала будет отображена вторая форма, а лишь при ее закрытии появится первая. Для правильного отображения нужно в OnActivate поместить код.


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
p0s0l
Дата 15.8.2003, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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



Предложенные выше способы покажут сразу обе формы, модальной будет вторая.
А если тебе надо, чтобы открывалась только вторая форма, то просто зайди в меню
Project->Options, вкладка Forms, выбери в Main Form твою вторую форму...

Это сообщение отредактировал(а) p0s0l - 15.8.2003, 20:13


--------------------
С уважением, г-н Посол.
PM   Вверх
Vit
Дата 15.8.2003, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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



procedure TForm1.FormActivate(Sender: TObject);
begin
onActivate:=nil;
Form2.showmodal;
end;




--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
0FF
Дата 15.8.2003, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Да не мужики есть способ намного проще:

В свойсве Формы1 поставить Visible:=False;
а в Events Form2.showmodal;
PM MAIL   Вверх
<Spawn>
Дата 15.8.2003, 21:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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



0FF Вряд ли это поможет) Если идти таким путем, то нужно поставить
Код
procedure TForm1.FormCreate(Sender: TObject);
begin
Visible:=False;
Application.ShowMainForm:=False;
try
Form2:=TForm2.Create(Self);
Form2.ShowModal;
finally
FreeAndNil(Form2);
end;
end;


Это сообщение отредактировал(а) <Spawn> - 15.8.2003, 21:36


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
<Spawn>
Дата 15.8.2003, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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



Хм сдесь, по моему, какой то глюк: Если програмно делать Visible:=False; с Application.ShowMainForm:=False то форма все равно отображается(если в инспекторе у нее стояло Visible=True). Если же в инспекторе стразу выставить Visible=False и потом сделать Application.ShowMainForm:=False, то первая форма отображаться не будет.

Это сообщение отредактировал(а) <Spawn> - 15.8.2003, 21:40


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
-Сергей-
Дата 19.8.2003, 04:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



не понимаю что вы тут пытаетесь сотворить, но если я правильно всех понял, то надо чтобы после открытия первой формы открылась вторая и не давала переключиться на первую.
Если так, то
Код
procedure TForm1.FormActivate(Sender: TObject);
begin
 Form2.ShowModal;
end;

и все!!!
--------------------
Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".
PM MAIL WWW ICQ MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


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

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


 




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


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

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