Скачать: CL | DM;

Создать форму   Найти похожие ветки 

← →
zorik ©   (2004-07-23 16:30) [0]

Как передать в процедуру конкретную форму, чтоб ее можно было динамически создать в теле процедуры?
Спасибо.

---

← →
Ega23 ©   (2004-07-23 16:36) [1]

procedure Тра-ля-ля(Obj:TObj);
begin
if Obj<>nil then Obj:=TObj.Create;
end;

---

← →
Sandman25 ©   (2004-07-23 16:38) [2]

TApplication.CreateForm

---

← →
Reindeer Moss Eater ©   (2004-07-23 16:40) [3]

procedure CreateMyForm(AFormClass : TFormClass);
begin
with AFormClass.Create(nil) do
 Show;
end;

CreateMyForm(TForm1);

---

← →
VMcL ©   (2004-07-23 16:44) [4]

>>Ega23 ©  (23.07.04 16:36) [1]

procedure Тра-ля-ля(var Obj:TObj);

а вообще см. [2]

---

← →
zorik ©   (2004-07-23 16:50) [5]

Спасибо за TFormClass, а я использовал TForm и создавалась пустая форма. Сейчас все работает.

---

← →
Ega23 ©   (2004-07-23 16:52) [6]

а я использовал TForm и создавалась пустая форма

Она и должна была пустой создаваться. Любая твоя форма это НАСЛЕДНИК от TForm.

---

← →
Reindeer Moss Eater ©   (2004-07-23 16:53) [7]

Любая твоя форма это НАСЛЕДНИК от TForm.

не наследник, а именно TForm

---

← →
Ega23 ©   (2004-07-23 17:06) [8]

2 Reindeer Moss Eater ©

type
 TForm1 = class(TForm)

Я это имел ввиду.

offtop:  давно хотел спросить: окуда такой необычный ник?

---

← →
Reindeer Moss Eater ©   (2004-07-23 17:15) [9]

"Оттуда"
/С.С.Горбунков/

---

← →
Ega23 ©   (2004-07-23 17:19) [10]

"Оттуда"

"Девочка с севера"???????    :о)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c