TObjectList - O q está Errado?

Delphi

10/02/2004

Caros colegas,

Estou com um problema nesse trecho de código no qual estou usando um ObjectList pra armazenar botões que eu vou criando em tempo de execução.

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    lista : TObjectList;
  end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
    btn : TButton;
    i : Integer;
begin
    try
        btn := TButton.Create(self);
        btn.Parent := self;
        btn.Caption := ´Botão´+ IntToStr( lista.count );
        showmessage(btn.caption);
        lista.Add(btn);
    finally
        FreeAndNil(btn);
    end;

    for i:=0 to lista.count-1 do
        showmessage((lista.Items[i] as TButton).Caption);
end;


Está dando um erro de Typecast inválido no showmessage. Ora, não estou armazenando TButton´s!!!

Agradeço a quem ajudar.


Nglauber

Nglauber

Curtidas 0

Respostas

Beppe

Beppe

10/02/2004

Tenta assim:
TButton(lista.Items[i])


Só que você tinha destruído aquele botão. Então não pode usá-lo.


GOSTEI 0
POSTAR