Интерфейс

← →
Rom@n (2003-02-15 06:18) [0]

Доброе время суток, уважаемые мастера.
Необходимо разработать программу к которой я бы мог
подключать формы как во фреймы, что бы они не двигались.

← →
Nerpa (2003-02-15 10:42) [1]

Называется Dockable.
Создай две формы.
В первой:

Свойства:
DragKind = dkDock
DragMode = dmAutomatic

События:
К примеру помещаем вторую на первую при создании (можешь по другим событиям)

procedure TForm1.FormCreate(Sender: TObject);
begin
form:=TForm2.Create(Self);
with form do
begin
ManualDock(Self, nil, alClient);
Align:=alClient;
Left:=0; Top:=0;
Show;
end;
end;

Только не увлекайся. Тормозит это всё.

← →
A2 (2003-02-15 11:34) [2]

Можно и по другому: на главную форму в нужном месте установить панель (в примере: DesktopPanel), а у дочерней формы указать:
//... здесь ClientForm - дочерняя форма
with ClientForm do
BorderStyle := bsNone;
Align := alClient;
Parent := DesktopPanel;
Show;
end;

Интерфейс Найти похожие ветки