Acceder a un TButton por su nombre

[[maeyanes]]

Hola...

Otra opción sería que guardes los botones en una lista al crear la forma, así los buscas por medio de su index:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    FBtnList: TObjectList;
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;

begin
  FBtnList := TObjectList.Create(False);
  for I := 0 to Pred(ComponentCount) do
    if Components[i] is TButton do
      FBtnList.Add(Components[i])
end;

procedure TForm1.MarcaBoton(Index: Integer);
begin
  TButton(FBtnList[Index]).Enabled := False
end;

Aquí lo único es que el rango sería de 0 a n - 1...


Saludos...

[Faust]

Se me ocurre otra que he usado en estos casos:

Lla función:

Código Delphi [-]
function FindCompByName(AContainer: TForm; AName: TComponentName):TComponent;
var
  i: Integer;
begin
  Result:= nil;
  for i:= 0 to AContainer.ComponentCount - 1do
    if AContainer.Components[i].Name = AName then
      Result:= AContainer.Components[i]
end;

Recibe como parámetros el nombre de un contenedor, en este caso un Form, y un nombre de un componente, te devuelve ese componente.

Este es un ejemplo de como usarlo:

Código Delphi [-]
procedure TForm1.btnTestClick(Sender: TObject);
begin
  with TStringGrid(FindCompByName(Self, 'grdAquiEstoy')) do
  begin
    DefaultColWidth:= 60;
    DefaultRowHeight:= 20;
//  Aqui puedes poner código para manipular el componente
  end;
end;

Para realizar este ejemplo pon varios controles en un formulario, además un botón llamado btnTest y un stringgrid llamado grdAquiEstoy, en el OnClick del botón btnTest inserta este código y afectará las columnas y filas del stringgrid, espero te sirva.

NOTA: Este no verifica si existe o no el componente, tal y como lo hace el ejemplo de Caro, el control debe existir o debes escribir código para manejar la situación en caso de que no exista.

[[maeyanes]]

Hola...

Faust, siento que estás reinventando la rueda con tu función FindCompByName, ya que la función FindComponent hace exactamente lo mismo...


Saludos...

[Faust]

Empezado por maeyanes

Hola...

Faust, siento que estás reinventando la rueda con tu función FindCompByName, ya que la función FindComponent hace exactamente lo mismo...


Saludos...

Ja ja ja... ya me había pasado con otras funciones...

ALguna vez hice una parecia a TryStrToInt... era igualita, gracias por el dato...