Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.07.2007, 11:52
buf069 buf069 вне форума
Прохожий
 
Регистрация: 28.07.2007
Сообщения: 6
Репутация: 10
По умолчанию Как создать форму

Здрасте!
У меня такой вопрос(сильно не издевайтесь)
Как открыть новую форму с помошью кнопки
Ответить с цитированием
  #2  
Старый 28.07.2007, 14:31
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Код:
procedure Form1.Button3Click(Sender);
begin
  SomeForm.Create;
  SomeForm.ShowModal;
  SomeForm.Free;
end;
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием
  #3  
Старый 29.07.2007, 10:50
buf069 buf069 вне форума
Прохожий
 
Регистрация: 28.07.2007
Сообщения: 6
Репутация: 10
По умолчанию

Форму2 надо открыть из меню формы1 через
procedure TForm1.N3Click(Sender: TObject);
Ответить с цитированием
  #4  
Старый 29.07.2007, 14:26
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Код:
procedure TForm1.N3Click(Sender: TObject);
begin
  //Form2.Create; // эту и нижнюю строку нужно раскомментировать, 
                        // если форма 2 у вас исключена из списка 
                        // автоматически создаваемых форм (в настройках 
                        // проекта)
  Form2.ShowModal;
  //Form2.Free;
end;
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием
  #5  
Старый 30.07.2007, 08:28
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Неправда Ваша!
Цитата:
Сообщение от 4kusNick
Код:
procedure TForm1.N3Click(Sender: TObject);
begin
  //Form2.Create; // эту и нижнюю строку нужно раскомментировать, 
                        // если форма 2 у вас исключена из списка 
                        // автоматически создаваемых форм (в настройках 
                        // проекта)
  //ТАК НЕЛЬЗЯ!!!! Нужно так:
  //Form2:=TForm2.Create(nil); //или ...TForm2.Create(self); это по желанию

  Form2.ShowModal;
  //Form2.Free;
end;
Ответить с цитированием
  #6  
Старый 30.07.2007, 11:55
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Виноват
Писал из головы, а голова была занята другими вещами под завязку.
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием
  #7  
Старый 30.07.2007, 17:01
zNk zNk вне форума
Прохожий
 
Регистрация: 16.01.2007
Сообщения: 39
Репутация: 10
Стрелка

Вообщето форма создаётся при загрузке программы без помощи конера, и уничтожается при завершении работы приложения

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

Если надо управлять всеми формами, например это у вас будет плавающее окошко, то делайте так:

Код:
procedure TForm1.N3Click(Sender: TObject);
begin
  Form2.Show;
end;
__________________
Ответить с цитированием
  #8  
Старый 30.07.2007, 17:24
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Уважаемый zNk, форма создается автоматически, только если она находится в списе автоматически создаваемых форм в настройках проекта!
Если Вы заметили, то в приведенных в качестве примера кодах присутствует комментарий:
// эту и нижнюю строку нужно раскомментировать,
// если форма 2 у вас исключена из списка
// автоматически создаваемых форм (в настройках
// проекта)

И не стоит делать по нескольку одинаковых постов, если что-то забыли написать, но уже отпостили, то пост можно изменить при помощи кнопки "Правка"
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием
  #9  
Старый 30.07.2007, 17:26
zNk zNk вне форума
Прохожий
 
Регистрация: 16.01.2007
Сообщения: 39
Репутация: 10
По умолчанию

На счёт самой темы:
Я просто более подробно разъяснил =)
На счёт постов:
Это баг форума. И не у меня одного два поста кинулось случайно...
__________________
Ответить с цитированием
  #10  
Старый 05.08.2007, 09:26
buf069 buf069 вне форума
Прохожий
 
Регистрация: 28.07.2007
Сообщения: 6
Репутация: 10
По умолчанию

Всем огромное СПАСИБО
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:08.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter