Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.29;
Скачать: 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 вся ветка

Текущий архив: 2004.08.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
14-1088092497
OSokin
2004-06-24 19:54
2004.08.29
Новый сайт


4-1090223134
DmitryMN
2004-07-19 11:45
2004.08.29
Поиск директории Program Files


1-1092235109
ron
2004-08-11 18:38
2004.08.29
Добрый день есть список файлов


1-1092295920
Batoon
2004-08-12 11:32
2004.08.29
Печать на принтере


14-1091985919
AlexG
2004-08-08 21:25
2004.08.29
Говорят, технология ActiveX устарела