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

Как запихнуть форму в 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;

---

← →
Чапаев ©   (2006-09-22 09:24) [11]

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

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

---

← →
atruhin ©   (2006-09-22 13:09) [12]

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

---

← →
StriderMan ©   (2006-09-22 14:57) [13]

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

Form1.Parent := Panel;

---

← →
clickmaker ©   (2006-09-22 15:00) [14]

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

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

---

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

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

---

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

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



Память: 0.48 MB
Время: 0.036 c