Текущий архив: 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.022 c
