Tema: tobjectlist
Ver Mensaje Individual
  #3  
Antiguo 04-01-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola DarkBlue.

Cita:
Empezado por DarkBlue Ver Mensaje
intento usar tobjectlist, pero no puedo es por que uso delphi 7?
No puede ser por eso. Seguramente te falte incluir la unidad Contnrs.

Te pongo un ejemplo muy simple:
Código Delphi [-]
...
implementation

uses Contnrs;

var
  ObjLst: TObjectList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ObjLst:= TObjectList.Create;
end;

procedure TForm1.btnCrearClick(Sender: TObject);
var
  i: Integer;
  CheckBox: TCheckBox;
begin
  for i:= 1 to 10 do
  begin
    CheckBox:= TCheckBox.Create(Self);
    with CheckBox  do
    begin
      Left  := 20;
      Top   := i * 30 + 20;
      Name  := 'CheckBox'+IntToStr(i);
      Parent:= Self
    end;
    ObjLst.Add(CheckBox)
  end;
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ObjLst.Free
end;

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita