![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#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
|
||||
|
||||
![]() Есть подозрение, что 2 форма не стоит в автозагрузке.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
![]() Цитата:
Спасибо, но где и как я могу это посмотреть и почему я сейчас изменил Visible с False на True, так она загружается сразу при запуске программы (вместе с формой1). С наилучшими пожеланиями Сергей Юдин. |
#4
|
||||
|
||||
![]() 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
|
|||
|
|||
![]() Я переписал этот код, у меня все работает
|
#6
|
|||
|
|||
![]() Цитата:
Спасибо, посмотрел. Автозапуск есть. Можно, наверное, просто при нажатии кнопки 2 изменять свойство Visible с False на True, но хотелось бы сделать, так, как учат в учебниках, т.е. Form2.Show. С наилучшими пожеланиями Сергей Юдин. |
#7
|
|||
|
|||
![]() Цитата:
И что же теперь мне делать, если у меня не работает. С наилучшими пожеланиями Сергей Юдин. |
#8
|
||||
|
||||
![]() Завернуть в архив и выложить.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#9
|
|||
|
|||
![]() Попробуй File-New-Application. Потом перед зелененькой стрелочкой Run нажми NewForm, потом откомпилируй, выскочет сообщение, нажми Yes и все получится. И код свой не забудь вписать
Последний раз редактировалось t116, 25.08.2011 в 01:01. |
#10
|
|||
|
|||
![]() Цитата:
Скиньте пожалуйста на email modsys@narod.ru Ваши исходники. Может быть у меня, что-то в настройках не то. С наилучшими пожеланиями Сергей Юдин. |
#11
|
|||
|
|||
![]() Цитата:
Выложил свои исходники и exe вот здесь http://ser.t-k.ru/Arhiv/Test.rar С наилучшими пожеланиями Сергей Юдин. |
#12
|
||||
|
||||
![]() Ты забыл на кнопку 2 назначить событи OnClick. В Object Inspector->Events->OnClick, выбрать событие Button2click для кнопки 2, так как оно у тебя прописано, но по какй-то причине не назначено.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#13
|
|||
|
|||
![]() Цитата:
Angvelem, огромное Вам спасибо. Без Вашей помощи я бы эту ошибку нашел не скоро, т.к. программирую на Делфи очень редко. С наилучшими пожеланиями Сергей Юдин. |