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

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]

Не понял.

---

← →
GrayFace ©   (2004-08-13 10:49) [3]

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

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

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

---

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

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



Память: 0.45 MB
Время: 0.02 c