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