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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Переход от Form1 к Form2, скажите как лучше 
:(
    Опции темы
zetxi815eb
Дата 17.1.2007, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Я новичёк в делфи..листал пол часа 2 книжки для начинающих ..так и не нашёл то, что искал.

Итак у меня есть Form1 и Form2...и кнопка далее

Вот процедура нажатия кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Form2.show;
end;

Но я хочу сделать так, чтоб Form1 после того как отобразится Form2 видно не было... Подскажите как такие вещи лучше делать..заранее спасибо
PM MAIL   Вверх
Yanis
Дата 17.1.2007, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Лучше делать панели на единственной форме. А вообще Form1.Hide;


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
aktuba
Дата 17.1.2007, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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



Код

procedure TForm1.Button1Click(Sender: TObject);
begin
    Form1.Hide;
    Form2.show;
end;


Не забудь в Form2, при закрытии сделать Form1.Show;


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Yanis
Дата 17.1.2007, 17:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



zetxi815eb
Если делаешь wizard, то по пути наименьшего сопротивления - используй TJvWizard.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
zetxi815eb
Дата 17.1.2007, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



ну допустим я сделал через hide. У меня в первой форме стоит воспроизведение звуковой дорожки

begin
PlaySound ('z.wav',0, SND_ASYNC or SND_LOOP);
end.

Как сделать, чтоб Form1 убрался, а мызука продолжала играть?

Я не шарю как делать визард...а разбираться щас время просто нет..мне до завтра нужно написать эту прогу.

Это сообщение отредактировал(а) zetxi815eb - 17.1.2007, 17:42
PM MAIL   Вверх
aktuba
Дата 17.1.2007, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

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



А что, после Hide музыка пропадает?


--------------------
user posted image
PM MAIL WWW Skype   Вверх
zetxi815eb
Дата 17.1.2007, 17:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



aktuba, да..пропадает....о...все нормально...Играет..у меня просто глюк с компиляцией был.

Всем спасибо..надеюсь я успею доделать этот проект

Это сообщение отредактировал(а) zetxi815eb - 17.1.2007, 18:08
PM MAIL   Вверх
zetxi815eb
Дата 18.1.2007, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Люди...а как сделать чтобы виндовская кнопка закрыть была неактивна?
PM MAIL   Вверх
Sunvas
Дата 18.1.2007, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

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



Код

procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
 hMenuHandle := GetSystemMenu(Handle, FALSE);
 IF (hMenuHandle <> 0) THEN
  DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;



--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
zetxi815eb
Дата 18.1.2007, 00:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Sunvas, спасибо огромное..
только вот он такую вот ошибку выдаёт [Error] Unit1.pas(35): Undeclared identifier: 'FormCreate'
Может надо тип указать?

ООО..всё проще намного...в меню object inspector находим пункт BorderIcons..в нем настраиваются все кнопки.

Это сообщение отредактировал(а) zetxi815eb - 18.1.2007, 01:03
PM MAIL   Вверх
Guedda
Дата 18.1.2007, 01:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


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

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



Цитата(zetxi815eb @  18.1.2007,  00:48 Найти цитируемый пост)
Undeclared identifier: 'FormCreate'

Просто это надо не самому прописывать, а в инспекторе объектов выбрать метод OnCreate, и в нём написать следующий код, который показал тебе Sunvas.


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


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

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


 




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


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

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