void __fastcall TMainForm::PanelForDockingDockDrop(TObject *Sender,
TDragDockObject *Source, int X, int Y)
{
TPanel *SenderPanel = dynamic_cast<TPanel*>(Sender);
SenderPanel->Width = 70;
}
void __fastcall TMainForm::PanelForDockingUnDock(TObject *Sender,
TControl *Client, TWinControl *NewTarget, bool &Allow)
{
TPanel *SenderPanel = dynamic_cast<TPanel*>(Sender);
PanelForDocking->Width = 0;
}
Вопрос по Drag&Dock
Есть две формы, в первой(основной) находится панель нулевой ширины, которая является контейнером для второй формы. Во второй форме есть непустой TreeView. Вопрос вот в чем:
1. присоединяю форму - все хорошо
2. отсоединяю форму - все хорошо
3. снова присоединяю форму - и тут пропадает содержимое TreeView.
Использую два обработчика событий OnDockDrop и OnUnDock:
Код:
Помогите пожалуйста разобраться почему такое происходит!
Нашел!
В форме котейнере FormStyle == fsMDIForm, а если будет fsNormal, то все будет работать без ошибок. Но тогда возник другой вопрос: почему не работает в первом случае?