Coolbar Band hinzufügen

[fLaSh11]

Ja, erst erstellen, dann drauf zugreifen.

[Larsi]

ich bekomms immernoch nicht hin
bin echt bald am durchdrehen

Delphi-Quellcode:

coolbar1.bands.add;
CoolBar1.Bands['irgendne integer zahl hab aber keine ahnnung wie ich das machen kann dass da immer ne andere drin steht!'].caption := edit1.text;

so geht nicht!
MFG Lars Wiltfang

[DeddyH]

Hast Du Dir mal Count angesehen?

[Larsi]

ja aber damit habe ich ncihts richtiges himbekommen kannste mir da mal n beispiel für geben (code???). Wäre darüber sehr sehr sehr dankbar

[DeddyH]

Und ich wäre Dir sehr dankbar, wenn Du mal ab und zu die OH bemühen würdest . Aber ich will mal nicht so sein. Das "letzte" Band müsste seinCoolBar1.Bands[Pred(CoolBar1.Bands.Count)]

[Reinhold]

Hallo Larsi,

in der Hilfe von Delphi2007 habe ich folgenden Code gefunden.

Delphi-Quellcode:

{
To run this example, add the example code to a new project.
The example code dynamically creates a TCoolBar and three
TCoolBand objects populated with a windowed control in each
TCoolBand.
}
procedure AddBand(CoolBar: TCoolBar; Const ControlClasses: array of TControlClass);
var
  CurrentControl: TControl;
  I: Integer;
begin
  for I := 0 to High(ControlClasses) do
    begin
      CurrentControl := ControlClasses[i].Create(CoolBar);
      if (CurrentControl is TWinControl) then
      begin
        { Placing the control onto the CoolBar causes the TCoolBar object to create a TCoolBand and place the control within the band. }
        CurrentControl.Parent := Coolbar;
        { Get the reference of the last TCoolBand created and assign text. }
        with CoolBar.Bands do
          Items[count - 1].Text := CurrentControl.ClassName;
      end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  CoolBar: TCoolBar;
begin
  CoolBar := TCoolBar.Create(Self);
  CoolBar.Parent := Self;
  CoolBar.Align := alClient;
  AddBand(CoolBar, [TCheckBox, TEdit, TButton]);
end;

Vielleicht hilft er dir weiter.

gruß Reinhold