Подскажите как правельней релизовать управление MDIChild окнами ,
хочу создать свою менюшку ControlBar и на ней кнопки с привязкой на каждое окно
Код: Выделить всё
procedure TfMain.CreateMDIChild(fName: TForm; TName: TComponent; NameFrom: string);
var
i: Integer;
FormClass: TFormClass;
begin
// Определяем номер формы
for i:= 0 to MDIChildCount - 1 do
if (Self.MDIChildren[i].Name = NameFrom) then MdiNumberWin := i+1 ;
// Создаем форму
RegisterClass(TfAddNewCard);
FormClass := TFormClass(FindClass('T'+NameFrom));
fName := FormClass.Create(Application);
fName.Tag := MdiNumberWin;
//Создаем компонет кнопки на панеле с привязкой на форму
WinButton := TSpeedButton.Create(fMain.ControlBar1);
WinButton.Width := Length(fName.Caption)*6;
WinButton.Caption := fName.Caption;
WinButton.Parent := fMain.ControlBar1;
WinButton.Tag := MdiNumberWin;
WinButton.OnClick := SpeedButtonClick;
end;