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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как создавать многоформенные проги? сделать чтобы у пр. было несколько окон 
:(
    Опции темы
DeMoNN
  Дата 21.3.2008, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 2
1.как сделать чтобы у проги быо несколько окон?
2.как между ними(окнами) переключатся Button-ами?
 smile 
PM MAIL ICQ   Вверх
CompWorm
Дата 21.3.2008, 20:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Допеределыватель
***


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

Репутация: 2
Всего: 31
1. файл -> новый -> форма.

2. 

для 1 формы
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2; // обязательно информируем первую форму о существовании второй

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //показать
begin
form2.show;
end;

procedure TForm1.Button2Click(Sender: TObject); //спрятать
begin
form2.hide;
end;

end.


Это сообщение отредактировал(а) CompWorm - 21.3.2008, 20:14


--------------------
user posted image

>>> Indie Games Club! <<<
PM MAIL   Вверх
DeMoNN
Дата 21.3.2008, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

для 1 формы


спасибо!
 smile 
PM MAIL ICQ   Вверх
SneG0K
Дата 21.3.2008, 21:39 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


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

Репутация: 3
Всего: 54
Тока не забудь сказать, что в uses нужно добавить юнит второй формы smile 
PM WWW Skype   Вверх
THandle
Дата 21.3.2008, 21:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
SneG0K, 

Цитата(CompWorm @  21.3.2008,  20:11 Найти цитируемый пост)
uses Unit2; // обязательно информируем первую форму о существовании второй



Читай повнимательнее smile 
PM   Вверх
SneG0K
Дата 21.3.2008, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


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

Репутация: 3
Всего: 54
Ааа... Ой... не заметил smile 
PM WWW Skype   Вверх
eViperEA
Дата 22.3.2008, 05:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
а как сделать так чтоб если закрываешь какуюто определенную форму все остальные закрывались... а не оставались в памяти висеть?
PM MAIL   Вверх
VICTAR
Дата 22.3.2008, 06:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 10
Всего: 80
Главная_форма.Close
PM MAIL   Вверх
eViperEA
Дата 22.3.2008, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
а это как нибудь можно сделать при нажатии на кнопку закрыть в "оглавлении" формы?
PM MAIL   Вверх
THandle
Дата 22.3.2008, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Код

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MainForm.Close;
end;


Это сообщение отредактировал(а) THandle - 22.3.2008, 12:04
PM   Вверх
pseud
Дата 24.3.2008, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Цитата(CompWorm @  21.3.2008,  20:11 Найти цитируемый пост)
uses Unit2; // обязательно информируем первую форму о существовании второй


мы информируем Unit1 о существовании класса TForm2
а то что в Unit2 есть глобальная переменная этого класса - частный случай


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
eViperEA
Дата 27.3.2008, 14:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Здраствуйте... 
Возникла проблема когда я присваиваю (основной) форме на 
button1  => 
Form2.show 
Form1.hide получается так что с "Панели задач" исчезает моя форма хотя новое окошко появилось...
Как мне с этим бороться?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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