Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TPanel & Drag

COOLer © (2004-08-13 09:28:00)
Как можно программно убрать заголовок, который появляется после перетаскивания TPanel, и запретить закрытие TPanel подскажите плз.

GrayFace (2004-08-13 10:49:00) [1]
В [2]я не понял вопрос - [1] я еще не видел.

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

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

stone (2004-08-13 10:32:00) [2]
Хотя сам по себе компонент 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:00) [3]
Не понял.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »