| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TClass

Страницы:   < 1 2 >

Labert ©   (2004-08-17 17:41:00) 

Никогда не использовал TClass, решил вот попробовать

подскажите, почему приведенный код дает ошибку:

procedure TForm1.Button1Click(Sender: TObject);
var
FormClass : TClass;
f : TForm3;
begin
FormClass := TForm3;
f := TForm3(FormClass.Create);
f.ShowModal;
f.Free
end;

Runtime ошибка на ShowModal  "Cannot make a visible window modal"

---

Гаврила   (2004-08-17 17:59:00) [21]

procedure TForm1.Button1Click(Sender: TObject);
var
FormClass : TClass;
f : TForm3;
begin
FormClass := TForm3;
f := TForm3(FormClass).Create(Self);
f.ShowModal;
f.Free
end;

---

Sandman25   (2004-08-17 17:57:00) [22]

[4] Labert ©   (17.08.04 17:55)

Если TClass, то откуда будете ShowModal вызывать?
Может, все-таки TFormClass?

---

Labert   (2004-08-17 17:55:00) [23]

>Sun bittern
я хочу использовать TClass
(еще раз - TClass)

Как динамически создавать объекты определенного в design-time класса все давно знают

>VMcL
Нет, не прокатывает

---

VMcL   (2004-08-17 17:47:00) [24]

f := TForm3(FormClass.Create);
f.Visible := False;
f.ShowModal;

Не так ли?

---

Sun bittern   (2004-08-17 17:47:00) [25]

var
f : TForm1;
begin
F := TForm1.Create(Application);
f.ShowModal;
f.Free
end;

---

Iconka   (2004-08-17 17:45:00) [26]

> var
> FormClass : TClass;

Полюбому, ты объявил указатель. Присваивай ему чё хочешь.

---

Страницы:   < 1 2 >

Наверх