Закрытие 2-й формы

@vadim23409 · Регистрация: 24.09.2012

Author24 — интернет-сервис помощи студентам

у меня есть основная форма (form1), и Form2, которая создается динамически при помощи кода:

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
if not FileExists('data/userslist.txt') then
begin
Form2:= TForm2.Create(Application);
 form2.Show;
end else
begin
Memo1.Lines.LoadFromFile('data/userslist.txt');
end;
end;

На второй форме есть кнопка:

Delphi

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Close;
end;

но она не работает... Конечно через крестик закрывается, но как осуществить ее закрытие через созданную кнопку?

@gylayko · 09.04.2013, 18:50

а зачем создавать вторую форму программно? создай ее сразу, сначала поставь Visible в False, а когда нужно, показывай ее.

@vadim23409 · 09.04.2013, 19:01 **[ТС]**

тогда вот что:

@gylayko · 09.04.2013, 19:21

ану кинь все файлы проекта. посмотрим.

@vadim23409 · 09.04.2013, 20:11 **[ТС]**

контакти.rar
вот

@vadim23409 · 09.04.2013, 20:13 **[ТС]**

здесь прописан код создания формы, но закрываться она не хочет... если вместо

Delphi

1 2	Form2:= TForm2.Create(Application); form2.Show;

вписать

Delphi

1	form2.visible:=true;

то пишет ошибку

@gylayko · 09.04.2013, 20:25

vadim23409, а нафига там вообще вторую форму создавать? сделай ShowMessage('файл відсутній'); да и все! нет?

@vadim23409 · 09.04.2013, 20:45 **[ТС]**

мне нужно еще туда элементов добавить... так что через ShowMessage ничего не выйдет...

@gylayko · 09.04.2013, 21:02

Сообщение от vadim23409

мне нужно еще туда элементов добавить... так что через ShowMessage ничего не выйдет...

ничего тогда не могу понять! вроде все правильно. возьми, короче, и запрячь вторую форму за первую, да и все!контакти.rar

@vadim23409 · 09.04.2013, 23:18 **[ТС]**

я так и нашел что было изменено... код такой, параметры Form3 тоже одинаковые, а у тебя работает, а у меня нет...

Добавлено через 4 минуты
а если сделать кнопку на форме3, и вписать в обработчик onClick:

Delphi

1	form3.visible:=false

, а в первой

Delphi

1
2
3

Form3:= TForm3.Create(Application);
 Form3.Show;
 form3.Visible:=true;

, то при нажатии кнопки форма пропадает, и снова появляется

@ProRockX · 10.04.2013, 00:25

vadim23409,
проблема скорее всего в том, что у тебя 2 форма при запуске программы по умолчанию создана (зайди в Projects-Options-Forms и перемести Form2 и Form3 из раздела Auto-Create Forms в Available Forms).

И кстати:

Delphi

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Close;
//form2.Visible:=false;
end;

если ты сделал Form2.Close, то зачем её скрывать? Форма и так закроется.

@vadim23409 · 10.04.2013, 01:07 **[ТС]**

проблема в том, что она не закрывается...

@flatgad · 10.04.2013, 01:08

скинь проект посмотрим

@vadim23409 · 10.04.2013, 01:13 **[ТС]**

ссылка в сообщениях выше

@flatgad · 10.04.2013, 01:25

и с того что у тебя есть можно сделать так контакти1.rar. Но я бы сделал не так !

тавтология

@vadim23409 · 10.04.2013, 13:25 **[ТС]**

а теперь ошибка, когда этот файл есть... да что же не так?

Добавлено через 3 минуты
а не.. всё норм

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	10.04.2013, 01:13 [ТС]	14
	ссылка в сообщениях выше 0

@flatgad geJI<\|>eP 188 / 187 / 19 Регистрация: 22.07.2010 Сообщений: 735
	10.04.2013, 01:25	15
	и с того что у тебя есть можно сделать так контакти1.rar. Но я бы сделал не так ! тавтология 0

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	10.04.2013, 13:25 [ТС]	16
	а теперь ошибка, когда этот файл есть... да что же не так? Добавлено через 3 минуты а не.. всё норм 0

@gylayko 30 / 29 / 15 Регистрация: 28.09.2011 Сообщений: 449
	09.04.2013, 18:50	2
	а зачем создавать вторую форму программно? создай ее сразу, сначала поставь Visible в False, а когда нужно, показывай ее. 0

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	09.04.2013, 19:01 [ТС]	3
	тогда вот что: 0

@gylayko 30 / 29 / 15 Регистрация: 28.09.2011 Сообщений: 449
	09.04.2013, 19:21	4
	ану кинь все файлы проекта. посмотрим. 0

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	09.04.2013, 20:11 [ТС]	5
	контакти.rar вот 0

@gylayko 30 / 29 / 15 Регистрация: 28.09.2011 Сообщений: 449
	09.04.2013, 20:25	7
	vadim23409, а нафига там вообще вторую форму создавать? сделай ShowMessage('файл відсутній'); да и все! нет? 0

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	09.04.2013, 20:45 [ТС]	8
	мне нужно еще туда элементов добавить... так что через ShowMessage ничего не выйдет... 0

@gylayko 30 / 29 / 15 Регистрация: 28.09.2011 Сообщений: 449
	09.04.2013, 21:02	9
	Сообщение от vadim23409 мне нужно еще туда элементов добавить... так что через ShowMessage ничего не выйдет... ничего тогда не могу понять! вроде все правильно. возьми, короче, и запрячь вторую форму за первую, да и все!контакти.rar 1

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	10.04.2013, 01:07 [ТС]	12
	проблема в том, что она не закрывается... 0

@flatgad geJI<\|>eP 188 / 187 / 19 Регистрация: 22.07.2010 Сообщений: 735
	10.04.2013, 01:08	13
	скинь проект посмотрим 0