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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 24.08.2011, 23:18
Ser Ser вне форума
Прохожий
 
Регистрация: 24.08.2011
Адрес: Волгоград
Сообщения: 10
Версия Delphi: 7
Репутация: 10
По умолчанию Не запускается форма2 с формы1

Сделал простейший пример. На форме1 поместил 2-е кнопки (закрыть программу и показать 2-ю форму), а на форме 2 поместил надпись и все. Откомпилировал программу (без ошибок) и запустил. Программа закрывается, как и положено, а форма2 не появляется. Код не большой, по этому привожу его полностью.
Код:
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
  Close;// '                              выгрузить прграмму
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.Show;// '                         показать описание программы
end;

end.



unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.
Админ: Пользуемся тегами для оформления кода!

Подскажите пожалуйста с чем может быть связано, то, что программа компилируется, но не работает, как положено и форма2 не появляется.

С наилучшими пожеланиями Сергей Юдин.

Последний раз редактировалось Admin, 25.08.2011 в 10:56.
Ответить с цитированием
  #2  
Старый 24.08.2011, 23:27
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Есть подозрение, что 2 форма не стоит в автозагрузке.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 25.08.2011, 00:03
Ser Ser вне форума
Прохожий
 
Регистрация: 24.08.2011
Адрес: Волгоград
Сообщения: 10
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от angvelem
Есть подозрение, что 2 форма не стоит в автозагрузке.

Спасибо, но где и как я могу это посмотреть и почему я сейчас изменил Visible с False на True, так она загружается сразу при запуске программы (вместе с формой1).

С наилучшими пожеланиями Сергей Юдин.
Ответить с цитированием
  #4  
Старый 25.08.2011, 00:14
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Project->Option->Forms. В левом окне формы, которые принадлежат проекту и создаются при запуске, в правом принадлежат проекту, но не создаются. Для них можно так:
Код:
var
  F : TForm;
begin
  ...
  F := TForm2.Create(Self);
  try
    F.Show;
  finally
    F.Free;
  end;
  ...
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 25.08.2011, 00:29
t116 t116 вне форума
Новичок
 
Регистрация: 29.06.2011
Адрес: Луганск
Сообщения: 92
Версия Delphi: Delphi7
Репутация: выкл
По умолчанию

Я переписал этот код, у меня все работает
Ответить с цитированием
  #6  
Старый 25.08.2011, 00:30
Ser Ser вне форума
Прохожий
 
Регистрация: 24.08.2011
Адрес: Волгоград
Сообщения: 10
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от angvelem
Project->Option->Forms. В левом окне формы, которые принадлежат проекту и создаются при запуске, в правом принадлежат проекту, но не создаются. Для них можно так:

Спасибо, посмотрел. Автозапуск есть. Можно, наверное, просто при нажатии кнопки 2 изменять свойство Visible с False на True, но хотелось бы сделать, так, как учат в учебниках, т.е. Form2.Show.

С наилучшими пожеланиями Сергей Юдин.
Ответить с цитированием
  #7  
Старый 25.08.2011, 00:32
Ser Ser вне форума
Прохожий
 
Регистрация: 24.08.2011
Адрес: Волгоград
Сообщения: 10
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от t116
Я переписал этот код, у меня все работает

И что же теперь мне делать, если у меня не работает.

С наилучшими пожеланиями Сергей Юдин.
Ответить с цитированием
  #8  
Старый 25.08.2011, 00:36
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Завернуть в архив и выложить.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #9  
Старый 25.08.2011, 00:39
t116 t116 вне форума
Новичок
 
Регистрация: 29.06.2011
Адрес: Луганск
Сообщения: 92
Версия Delphi: Delphi7
Репутация: выкл
По умолчанию

Попробуй File-New-Application. Потом перед зелененькой стрелочкой Run нажми NewForm, потом откомпилируй, выскочет сообщение, нажми Yes и все получится. И код свой не забудь вписать

Последний раз редактировалось t116, 25.08.2011 в 01:01.
Ответить с цитированием
  #10  
Старый 25.08.2011, 00:43
Ser Ser вне форума
Прохожий
 
Регистрация: 24.08.2011
Адрес: Волгоград
Сообщения: 10
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от t116
Я переписал этот код, у меня все работает

Скиньте пожалуйста на email modsys@narod.ru Ваши исходники. Может быть у меня, что-то в настройках не то.

С наилучшими пожеланиями Сергей Юдин.
Ответить с цитированием
  #11  
Старый 25.08.2011, 01:00
Ser Ser вне форума
Прохожий
 
Регистрация: 24.08.2011
Адрес: Волгоград
Сообщения: 10
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от angvelem
Завернуть в архив и выложить.

Выложил свои исходники и exe вот здесь http://ser.t-k.ru/Arhiv/Test.rar

С наилучшими пожеланиями Сергей Юдин.
Ответить с цитированием
  #12  
Старый 25.08.2011, 01:14
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Ты забыл на кнопку 2 назначить событи OnClick. В Object Inspector->Events->OnClick, выбрать событие Button2click для кнопки 2, так как оно у тебя прописано, но по какй-то причине не назначено.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #13  
Старый 25.08.2011, 06:29
Ser Ser вне форума
Прохожий
 
Регистрация: 24.08.2011
Адрес: Волгоград
Сообщения: 10
Версия Delphi: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от angvelem
Ты забыл на кнопку 2 назначить событи OnClick.

Angvelem, огромное Вам спасибо. Без Вашей помощи я бы эту ошибку нашел не скоро, т.к. программирую на Делфи очень редко.

С наилучшими пожеланиями Сергей Юдин.
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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