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

TCustomDockForm.Caption:= ???????    Найти похожие ветки 

← →
NeVIP ©   (2004-08-27 18:45) [0]

Бодрого времени суток!
Появилась проблема с TCustomDockForm...
Использую я интерфейс Drag&Dock, переносисмым
объектом являеться, ну, скажем - кнопка, приёмником
некая панель. Когда я отпускаю кнопку вне
компонента - прёмника, то как известно, для этого
случая создаётся окно - носитель; и хочется
задать Caption этого окна, но в этом то и проблема...
Вот форма носитель :

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

constructor TDockForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
BorderIcons:=[];
// Пытаюсь задать текст в заголовке
Caption:="Положь обратно!";
Width:=300;
end;


Связываю :


procedure TCSKForm.FormCreate(Sender: TObject);
begin
Button1.FloatingDockSiteClass:=TDockForm;
end;


BorderIcons:=[]; - работает на Ура!, а вот Caption не
отображается никак...
Подскажите как с этим бороться.
Respect.

---

← →
NeVIP ©   (2004-08-27 21:28) [1]

Up

---

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

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



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