TToolbutton visible

[_frank_]

Hi,
ich habe mir eine Checklistbox gebastelt um die Buttons einer Toolbar ein- und ausblenden zu können. Das Ausblenden funktioniert auch super...nur einblenden tut er nicht (keine Fehlermeldung).

mein Code:

Delphi-Quellcode:

procedure TForm_DFMOptions.CheckListBox1ClickCheck(Sender: TObject);
var i:integer;
    c:TControl; 
begin
  for i:=0 to checklistbox1.Items.count-1 do
  begin
    c:=Form_DFMMain.FindComponent(Checklistbox1.items.strings[i]) as TControl;
    if assigned(c) then
    begin
      c.Visible:=Checklistbox1.Checked[i]; //show if hidden isn't working
    end else
      showmessage('not assigned');
  end; 
end;

habe auch schon mit (c as TToolbutton).Show, (c as TToolbutton).Parent und Form_DFMMain.Toolbar1.Update rumgespielt, jedoch ohne Erfolg...einmal ausgeblendet ist der button weg

vielleicht hat jemand eine Idee...

Gruß Frank