Ver Mensaje Individual
  #1  
Antiguo 17-01-2008
harpo harpo is offline
Miembro
 
Registrado: jul 2006
Posts: 35
Reputación: 0
harpo Va por buen camino
Problema con Toolbar, ToolButtons

Buenas gente,
estoy teniendo problemas con una Toolbar a la que agrego varios TooButtons con imágenes tomadas de una ImageList.
La idea que tengo es modificar la barra de tareas mostrando unos botones u otros según el frame que aparezca en pantalla. Para ello antes de hacer el cambio de pantalla pongo la propiedad Visible de todos los botones a false y luego, una vez ha cambiado de pantalla, a true los que correspondan.
Pues bien, la Toolbar se va al carajo añadiendo botones que no existen y ocultando otros . Si tienen que estar los botones 1, 2, 4 y 5, muestra 1, 2, 2, 6, 4 y 5 ¬¬.
Parece una tontería, pero le he dado mil vueltas y no veo modo de resolverlo... a ver si alguien me puede echar una mano.

Oculto los botones así:

Código:
  for i:=0 to ToolBar1.ButtonCount-1 do
  begin
    ToolBar1.Buttons[i].Visible:=false;
Y los muestro así:
Código:
 with frMain.frToolBar do
  begin
    boNewPatient.Visible:=true;
    boEditPatient.Visible:=true;
    boDeletePatient.Visible:=true;
    boNewStudy.Visible:=true;
    boEditStudy.Visible:=true;
    boEditStudy.Enabled:=true;
    boDeleteStudy.Visible:=true;
    boDeleteStudy.Enabled:=true;
    boCamera.Visible:=true;
    boPrint.Visible:=true;
    boBack.Visible:=true;    
  end;
Gracias por cualquier ayuda
Responder Con Cita