Coolbar Band hinzufügen

[Larsi]

hi, wie kann ich in eine coolbar ein band hinzufpgen. hab schon folgendes probiert:

Delphi-Quellcode:

var
cb: tcoolband;
begin
cb := coolbar1.Bands.Add;
cb.Text := 'Hallo';
end;

das klappt auch schon ganz gut aber wenn ich jetzt zweimal auf den button der das macht klicke passiert bei mzweiten mal nichts mehr.

und dan wäre es noch nett wenn mir jemand sagen könnte wie man die einzelnen bands dann durch nen klick ansprechen kann? und wie geht dass dass wenn man sie aus der coolbar rauszieht dass sie dann weg sind bzw. dass man sie durch verschieben zb wie bei safari in eine ganz andere reihenfolge bringen kann???
ich wollte jetzt nciht für jede einzelne frage nen neuen threaf aufmachen. habt erbahmen, moderatoren mit mir :)

[fLaSh11]

Warum machst du das ganze nicht auf visueller Basis, sondern im Form von Code?
Einfach eine TToolBar auf die TCoolBar ziehen.

[RavenIV]

Zitat:

Zitat von fLaSh11

Warum machst du das ganze nicht auf visueller Basis, sondern im Form von Code?
Einfach eine TToolBar auf die TCoolBar ziehen.

Hat er doch geschrieben.
Weil er es mit einem Button-Klick machen will.

[Larsi]

es geht dabei um eine favoriten bzw. lesezeichen leiste. wäre echt dankbar und ja es muss codetechnisch gehen :)

[fLaSh11]

Zitat:

Zitat von Larsi

es muss codetechnisch gehen :)

Delphi-Quellcode:

var
  ToolBar1: TToolBar;
begin
  ToolBar1 := TToolBar.Create(self);
  ToolBar1.Parent := CoolBar1

[Larsi]

das meinte ich jetzt nicht :( ich möchte das OHNE eine toolbar machen sondern einfach per button einträge hinzufpgen :)

[fLaSh11]

Geht doch aber genauso auf Knopfdruck?!

Wenn du mehr haben und von überall drauf zugreifen willst, dann kannste ja sogar ein globales dynamisches Array nehmen.

//Edit: Oder hast du schon eine ToolBar und willst darauf weitere Controls erstellen?

[Larsi]

nein ich habe keine toolbar und möchte auch keine haben!
ich habe es doch scohn hinbekommen dass ein beitrag hinzugeügt wird. warum geht das nicht mit zweien?

[fLaSh11]

Also wenn ich dein Code in ein ButtonClick-Methode reinhaue funktioniert das bei mir prima mit öfters klicken. Der Fehler kann nicht an dem Stück Code liegen. Es sei denn, mein Delphi verhält sich anderst als deines...

//Edit: Zu deiner 2. Frage:

Delphi-Quellcode:

  CoolBar1.Bands[{index}].Blah;

[Larsi]

ad das hört sich gut an. und das coolbar1.band.add muss das jetzt vor CoolBar1.Bands[{index}].Blah; der nach CoolBar1.Bands[{index}].Blah;

[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 :stupid: . Aber ich will mal nicht so sein. Das "letzte" Band müsste sein

Delphi-Quellcode:

CoolBar1.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