Как запихнуть форму в tPanel

← →
Алексей А. (2006-09-21 23:39) [0]

Здравствуйте.
Собственно сабж. (на подобии фрейма).
Зарание спасибо.

← →
Ketmar © (2006-09-21 23:39) [1]

проще всего -- забыть об этой грустной идее. заранее пожалуйста.

← →
Алексей А. (2006-09-21 23:41) [2]

неужели только фреймы можно юзать?

← →
Ketmar © (2006-09-21 23:44) [3]

лучше и их не надо. %-)

← →
Алексей А. (2006-09-21 23:51) [4]

Хммм...
Мне нужно сделать что-то вроде мастера (Wizard), но по несколько раз создавать одни и те же кнопки (Next, Back и т.д) не хочется. Notebook тоже не очень :(

← →
ProgRAMmer Dimonych (2006-09-21 23:57) [5]

А что, если использовать одни и те же контролы, но в определённый момент заменять их содержимое (Caption и т.п.) на нужное. У меня что-то похожее в моей научной работе по информатике (обучающая программа). Только придётся продумать, где хранить эти Caption"ы...

← →
Алексей А. (2006-09-22 00:04) [6]

Дык контролы разные. Например на 1-й странице толь Memo, 2-й - три Edit"a, 5-й ProgressBar и т.д. Наверное прийдётся всё-таки юзать Notebook...

← →
ProgRAMmer Dimonych (2006-09-22 00:09) [7]

Вариант 1. Одни показывать, другие прятать... {контролы}
Вариант 2. Одну показывать, все остальные прятать... {закладки}

← →
Германн © (2006-09-22 01:04) [8]

> Алексей А. (22.09.06 00:04) [6]
>
> Дык контролы разные. Например на 1-й странице толь Memo,
> 2-й - три Edit"a, 5-й ProgressBar и т.д. Наверное прийдётся
> всё-таки юзать Notebook...
>

TPageControl имхо, лучше подходит для этой задачи.
А кнопки Next, Back и т.п. лучше разместить под ним, а не на нём.

← →
DrPass © (2006-09-22 01:11) [9]

Можно и форму, при желании. Например, если не хочется пихать все в один модуль.
У формы Align = alClient, BorderStyle = bsNone;
Потом - MyForm.ManualDock(MyPanel); MyForm.Visible:= true;

← →
atruhin © (2006-09-22 06:58) [10]

Подробно по запихиванию форм описано у Тейксейра(вроде так), Пачеко.
Но форму придется создавать динамически, т.е. как компонент в палитре не разместиш.
Вот так:
constructor TfrmAbstractChild.CreateChild(AOwner: TComponent);
begin
FTempParent := TWinControl(AOwner);
inherited Create (AOwner);
end;

procedure TfrmAbstractChild.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or WS_CHILD;
end;

procedure TfrmAbstractChild.Loaded;
begin
inherited;
Align := alClient;
BorderStyle := bsNone;
BorderIcons := [];
Parent := FTempParent;
Position := poDefault;
end;

> procedure TfrmAbstractChild.CreateParams(var Params: TCreateParams)
> ;
> begin
> inherited;
> Params.Style := Params.Style or WS_CHILD;
> end;

Ну ещё вроде Params.ParentWnd тут прописать надо.

Спорить не буду но взял с рабочего проекта.

эээээ я конечно извиняюсь но

Form1.Parent := Panel;

> [6] Алексей А. (22.09.06 00:04)
> Дык контролы разные. Например на 1-й странице толь Memo,
> 2-й - три Edit"a, 5-й ProgressBar и т.д. Наверное прийдётся
> всё-таки юзать Notebook...

TPageControl со свойством TabVisible = false у закладок.
Кнопки на форме под ним.
Станадртные виндозные визарды так и делаются обычно

← →
Алексей А. (2006-09-23 23:13) [15]

Огромное спасибо всем!

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