TBX: Floatingwechsel macht Dockprobleme

[Nils_13]

Keiner eine Idee ? Wenn bei der Frage eine Unklarheit besetehen sollte, dann sagt diese bitte.


*** edit 10.01.07/21:57 ***
Habe es so hinbekommen:

Delphi-Quellcode:

procedure TfrmMain.cbFloatingChange(Sender: TObject);
var i       : Integer;
begin
  if cbFloating.ItemIndex = 0 then
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if Components[i] is TTBXDockablePanel then
      begin
        (Components[i] as TTBXDockablePanel).Floating := False;
        (Components[i] as TTBXDockablePanel).CurrentDock:=(Components[i] as TTBXDockablePanel).DefaultDock;
      end;
    end;
  end else
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if not (Components[i] = tbxdp_std) then // eine kleine Einschränkung, welche man natürlich weglassen könnte
      begin
        if Components[i] is TTBXDockablePanel then
        begin
          (Components[i] as TTBXDockablePanel).Floating := True;
        end;
      end;
    end;
  end;
end;