Drag&Dock не получается.

[Leo20]

взял пример из книги, (как сделать чтобы перетаскиваемая панель была не в виде окошка),
а он мне пишет что неизвесный идетификатор, может я какое то свойство не настоил

type
    TMyCustomFloatingForm = class(TCustomDockForm)
public
  constructor Create(AOwner: TComponent); override;
end;
  TForm1 = class(TForm)
    ListView1: TListView;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
........................................

implementation
{$R *.dfm}
constructor TMyCustomFloatingForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  BorderStyle := bsNone;
end;
................................

procedure TForm1.FormCreate(Sender: TObject);
begin
toolbar1.FioatingDockSiteCiass := TMyCustomFloatingForm;
end;

[Marsel737]

Leo20, ты не объявляеш toolbar1, вот он и ругается

[Leo20]

вопрос даже не в том чтобы она в процессе перетаскивания не была в виде формы, а в том
как сделать так чтобы после причаливания у нее не было этого крестика сверху.

[Marsel737]

Leo20, для этого тогда вообще не нужно ничё прописывать в делфи это в свойствах формы и объекта задается. Ищи похожие темы на форуме, или те что внизу посматри