Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Как разместить несколько форм в одном модуле?   Найти похожие ветки 

← →
Cranium ©   (2003-10-30 15:13) [0]

Сложность в том как создать *.dcu файл для второй формы....

---

← →
Reindeer Moss Eater ©   (2003-10-30 15:16) [1]

И в чем необходимость такого?

Сложность в том как создать *.dcu файл для второй формы....

Я бы сказал что и для первой это сложновато будет.

---

← →
ZEE ©   (2003-10-30 15:16) [2]

сложность в том - что непонятен вопрос :)
что ты хочешь в одном юните две формы или может в одном проекте...

---

← →
Cranium ©   (2003-10-30 15:17) [3]

В одно юните...

---

← →
Mild ©   (2003-10-30 15:18) [4]

Отнаследоваться от первой

---

← →
Cranium ©   (2003-10-30 15:19) [5]

Не годиться они разные...

---

← →
Reindeer Moss Eater ©   (2003-10-30 15:20) [6]

В одно юните...

В юнитах живут классы, а формы живут в ресурсах.

---

← →
Cranium ©   (2003-10-30 15:22) [7]

Так вот я и спрашиваю как добавить файл ресурса для второй формы (класса) обяевленного в модуле...

---

← →
ZEE ©   (2003-10-30 15:22) [8]

хм... самому интересно стало, а так не пройдет?
...
interface

type
TForm1 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
...
end;
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
...
end;

implementation
...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
...
end;
...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
...
end;
...

---

← →
ZEE ©   (2003-10-30 15:24) [9]

и на счет ресурсов
{$R *.dfm} - не подключит ли оба ресурса и для Form1 и для Form2?

---

← →
Reindeer Moss Eater ©   (2003-10-30 15:25) [10]

И в чем необходимость этого?

---

← →
Reindeer Moss Eater ©   (2003-10-30 15:26) [11]

и на счет ресурсов
{$R *.dfm} - не подключит ли оба ресурса и для Form1 и для Form2?

Подключит DFM ресурс с именем pas модуля.

---

← →
Cranium ©   (2003-10-30 15:27) [12]

type
TFormLogin = class(TForm)
procedure FormCreate(Sender: TObject);
procedure glBitBtn3Click(Sender: TObject);
private
glWizardHeader1: TglWizardHeader;
............
glBitBtn3: TglBitBtn;
public
{ Public declarations }
end;
type
TFormLoginParam = class(TForm)
// procedure FormCreate(Sender: TObject);
private
{Private declarations }
public
{ Public declarations }
end;
................................
procedure TFormLogin.glBitBtn3Click(Sender: TObject);
begin
FormLoginParam:= TFormLoginParam.Create(Self);
end;

Получаем "Resource TFormLoginParam not found"

---

← →
Reindeer Moss Eater ©   (2003-10-30 15:28) [13]

{$R name_of_resource_file.dfm}

---

← →
icWasya ©   (2003-10-30 15:29) [14]

разместить то можно, но как проектировать такие формы :~(

---

← →
Cranium ©   (2003-10-30 15:32) [15]

Понял проще dfm ручками отредактировать...

---

← →
AbrosimovA   (2003-10-30 16:28) [16]

Есть компонент SpeedForm. Кидаешь на основную форму, при этом выглядит как настоящая форма. Может на ней размещать любые контролы. Весь код для этой формы располагается в том же юните.
Только есть недостатки: перемещается только в пределах главной формы, соответственно размер её ограничен размерами основной.
Но для создания окон настроек программы и т.д. вполне подходит.

---

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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.03 c