VPF::Вызов одной формы из другой.Прошу совета.

KibARG

Дата 2.5.2007, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Добрый день.
Прошу вашего совета по вызову форм. Решил написать игру. В кратце, есть одно главное окно, и в нём кнопка, по нажатии которой должна открыться другая форма, но как это релиазовать?Извиняюсь за столь ламерский вопрос,но так и не смог разобраться.....
Заранее спасибо.

z-END

Дата 2.5.2007, 18:28 (ссылка)

(голосов:2)

Загрузка ...

прафесар™

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

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

Цитата(KibARG @ 2.5.2007, 19:17

)

Решил написать игру.

может сначала HelloWorld написать? smile

Код


otherForm.Show;
otherForm.ShowModal;

etc

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

KibARG

Дата 2.5.2007, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

спасибо, если ставлю showmodal то выдает ошибку "cannot make a visible window modal'

Код


procedure Tarena1.Magazin1Click(Sender: TObject);
var otherbattle1:tform;
begin
otherBattle1.showmodal;
end;

прописывать так?

WERITAS

Дата 2.5.2007, 19:48 (ссылка)

(нет голосов)

Загрузка ...

********

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

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

А у тебя Форма не создана, надо ее создать, типа availables сделать

--------------------

Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"

KibARG

Дата 2.5.2007, 20:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

типа как? где прописать avilaibles? в параметрах нету такого......

ellis

Дата 2.5.2007, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
TextForm.ShowModal;
end;

end.

KibARG

Дата 2.5.2007, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

WERITAS,
Форма у меня создана полностью, нарисована и код для неё написан, надо её только кнопкой открыть.....

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
TextForm.ShowModal;
end;
end.

TextForm? это что?

lukas

Дата 2.5.2007, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

KibARG,

для начала нужно создать эту форму... (динамически)...

Код


procedure Tarena1.Magazin1Click(Sender: TObject);
var otherbattle1:tform;
begin

otherbattle1:=TForm.Create(nil);
otherbattle1.parent:=nil;
end;

Это сообщение отредактировал(а) lukas - 2.5.2007, 21:52

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

maniaks1

Дата 2.5.2007, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

KibARG,
Ну если у тебя форма создана, то если она у тебя является второй, то вызвать можно так:

Код


  Form2.Show;

Если при этом нужно скрыть первую, то так:

Код


  Form2.Show;
  Form1.Hide;

lukas

Дата 2.5.2007, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

KibARG, если форма создана... то просто могла произойти путаница со свойствами MDI формы... посмотри внимательно на форму..

или... возможен такой исход.. что форма уже запущена ... form.show и тут ты пытаешься открыть ее чере showmodal... (в этом случае даже если скроешь форму form.hide и вызовешь showmodal будет такая ошибка...)

попробуй так

Код


...
form.close; // скорее всего форма запущена но скрыта
form.showmodal;

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

ellis

Дата 2.5.2007, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

TextForm - это имя формы которая запустится при нажатии на кнопку

KibARG

Дата 2.5.2007, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

maniaks1, твоим методом пробывал, ничего, не каких реакций.

lukas таки надо было её в начале создать динамически

большое спасибо, теперь хоть с мертвого места сдвинусь.

ellis

Дата 2.5.2007, 22:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

а как запустить форму ? отрывается форма1 и сразу же открывается форма2
пробывал так

Код


procedure TTestForm.FormCreate(Sender: TObject);
begin
  TextForm.Show;
end;

end.

выделяет синим строку "Application.CreateForm(TTextForm, TextForm);"

ellis

Дата 3.5.2007, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Всё в своём вопросе разобрался сам smile

KibARG

Дата 3.5.2007, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

пробую так же вторую форму открыть, оно ругается что форма не инициализирована

Код


procedure Tarena1.Magazin1Click(Sender: TObject);
var otherbattle1:tform;
begin
otherbattle1:=TForm.Create(nil);
otherbattle1.parent:=nil;
end;

открываю этим кодом....

инициализировать форму это

otherform2.InitiateAction?

Добавил, ругается что ошибка в доступе к памяти

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