TPanel & Drag

← →
COOLer (2004-08-13 09:28) [0]

Как можно программно убрать заголовок, который появляется после перетаскивания TPanel, и запретить закрытие TPanel подскажите плз.

← →
stone © (2004-08-13 10:32) [1]

Хотя сам по себе компонент TControl и его потомки не являются окнами Windows, но специально для этого случая создается окно-носитель. Свойство FloatingDockSiteClass как раз и определяет класс создаваемого окна. По умолчанию для большинства компонентов значение этого свойства равно TCustomDockForm. Это — форма, которая обладает свойствами дока и создается в момент отпускания элемента управления вне других доков. Внешне она ничем не отличается от обычной стандартной формы. Если вы хотите, чтобы ваша плавающая панель инструментов выглядела по- особенному, нужно породить потомка от класса TCustomDockForm и связать свойство FloatingDockSiteCiass с этим порожденным классом:

TMyCustomFloatingForm = class(TCustomDockForm)
public
constructor Create(AOwner: TComponent); override;
end;

constructor TMyCustomFloatingForm.Create(AOwner: TComponent};
begin
inherited Create(AOwner);
BorderStyle := bsNone;
end;

procedure TForml.FormCreate(Sender: TObject);
begin
Panell.FioatingDockSiteCiass := TMyCustomFloatingForm;
end;

← →
GrayFace © (2004-08-13 10:32) [2]

Не понял.

В [2] я не понял вопрос - [1] я еще не видел.

А как сделать панель плавающей?

stone © (13.08.04 10:32) [1]
Хотя сам по себе компонент TControl и его потомки не являются окнами Windows...
Бред! TWinControl имеет. TPanel - потомок TWinControl.

TPanel &amp; Drag Найти похожие ветки

TPanel & Drag Найти похожие ветки