Poder seleccionar ToolButton

[Parsec]

Hola de nuevo,

me he atascado en una tontería.

Tengo varios ToolButton: ToolButton1..ToolButton5, ¿cómo puedo componer el nombre del ToolButton desde un procedimiento pasándole solo el número final?.

Pongo un ejemplo:

Código Delphi [-]
procedure TForm1.habilitauno(k:integer);
var
i:integer;
    begin
    for i := 1 to 10 do
      begin
         If i=k then
           'ToolButton'+IntToStr(i)].Enabled:=True; 
          else
           'ToolButton'+IntToStr(i).Enabled:=False;
      end;

    end;

Quiero habilitar, por ejemplo, ToolButton3 pero la forma de crear la cadena no es la correcta.
Saludos

[[fjcg02]]

Hola,

http://clubdelphi.com/foros/showthre...=findcomponent

mensaje nº 10.

Saludos

[Parsec]

Hola,

gracias por contestar, he probado con el siguiente código (sacado del hilo que me has puesto), pero no funciona.

Código Delphi [-]
for i := 1 to 10 do
      begin
         If i=k then
           TToolButton(FindComponent('ToolButton'+IntToStr(i))).Enabled:=True

          else
          TToolButton(FindComponent('ToolButton'+IntToStr(i))).Enabled:=False;
      end;

Los ToolButton no se deshabilitan, ¿que puede pasar?

Saludos

[Caminante]

No veo la necesidad del bucle si solo vas a activar/desactivar un solo toolbutton.
Saludos

[[fjcg02]]

Prueba a ver con una variable intermedia. Esto me funciona.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var toolB: TToolButton;
begin

toolB:= TtoolButton(findComponent('ToolButton1'));
toolB.Enabled:= False;

end;

Saludos

[Parsec]

Originally Posted by Caminante

No veo la necesidad del bucle si solo vas a activar/desactivar un solo toolbutton.
Saludos

Tengo 10 botones, cuando habilito uno de ellos tengo que deshabilitar los demás.

Ya funciona!!, muchas gracias fjcg02.

Saludos.

[[fjcg02]]

A mandar

Hoy ya me he ganado las alubias.

Saludos

[[Chris]]

La próxima vez es mejor que utilices TActions para los TToolButtons.

[Parsec]

Hola Chris,

Utilizo TtoolBar, porque parece lo más indicado, con el botón derecho añades ToolButtons a tu gusto.
¿Que ventajas tiene TActions?, aún puedo cambiar.

Saludos

[[Chris]]

Originally Posted by Parsec

Hola Chris,

Utilizo TtoolBar, porque parece lo más indicado, con el botón derecho añades ToolButtons a tu gusto.
¿Que ventajas tiene TActions?, aún puedo cambiar.

Saludos

Primero: si utilizas un TAction no tendrás que dejar de usar los TToolbutton's. Los ToolButton's estarán relacionados los TAction's por medio de la propiedad Action del primero.

Antes de seguir definamos unos terminos en un entorno Delphi:
Vista: La conforman todas las ventanas, dialogos y todos tipo de controles visibles e interactivos. Por ejemplo TEdit, TButton, TToolButton, etc.

Controlador: Son componentes invisibles al usuario final. Controlan y centralizan la lógica de negocios de la aplicación. Un ejemplo de controlador son los TAction, TApplicationEvents, TTimer, TDataset, etc.


El componente TAction funciona como un puente entre el controlador y la vista, al igual que lo hace el TDatasource. Así que por ejemplo, si deshabilitas un TAction automáticamente se deshabilitarán todos los controles visibles relacionados a ése TAction. Además de la propiedad Enabled, el componente TAction puede heredar muchas más propiedades gráficas a los controles relacionados, ejemplo: las propiedades Caption e Hint.


Usar TAction tiene muchas ventajas. Una de ellas es que centralizas el código en en los controladores y no en las vistas. Las últimas se vuelven más independientes de la lógica de negocios de tu aplicación.

Saludos!

[Parsec]

Gracias por tu tiempo y tu explicación, lo probaré.

Saludos