Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.08.2008, 15:26   #1
Манжосов Денис :)
Участник клуба
 
Регистрация: 29.01.2008
Сообщений: 1,039
По умолчанию Form1.Free; Abstract Error

Сначала создаю форму:
Код:
Application.CreateForm(TForm2,Form2);
Form2.Show;
На второй форме есть только TButton. При нажатии на Button выполняется след.код:
Код:
Form2.Free;
Form1.Show;
И тут вылетает ошибка AbstractError. Помогите.
Манжосов Денис :) вне форума Ответить с цитированием
Старый 21.08.2008, 15:34   #2
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Обычно я выделяю ошибку и жму F1....

А вот интересно, Form1.Show будет выполнена после Form2.Free или всёже остальные строки, после Form2.Free, будут проигнорированны?
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 21.08.2008, 15:40   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Form2.Free;
А почему не Close?

Хотя в принципе можеш так попробовать
Проект:
Код:
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.
Вторая форма:
Код:
procedure TForm2.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
free;
form1.show;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Show;
end;
I'm learning to live...

Последний раз редактировалось Stilet; 21.08.2008 в 15:46.
Stilet вне форума Ответить с цитированием
Старый 21.08.2008, 15:46   #4
Манжосов Денис :)
Участник клуба
 
Регистрация: 29.01.2008
Сообщений: 1,039
По умолчанию

Буду пробовать, спасибо.
Манжосов Денис :) вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DLL. Ошибка при Form1.Free Roof Общие вопросы Delphi 3 26.07.2008 01:21
Form1 был невидим Михаил Юрьевич Общие вопросы Delphi 3 16.01.2008 00:44
Печать Form1 Pinya Общие вопросы Delphi 1 26.12.2007 15:48
Form1.Hide и Form1.Show... Roof Общие вопросы Delphi 9 13.10.2007 13:33
Free Pascal(2.0.4) ошибка: Error while linking Акашаев Нурлан Паскаль, Turbo Pascal, PascalABC.NET 2 04.08.2007 10:10