Ver Mensaje Individual
  #7  
Antiguo 24-08-2007
[basti] basti is offline
Miembro Premium
 
Registrado: ago 2004
Posts: 388
Reputación: 20
basti Va por buen camino
Si lo que quieres es crear los componentes por código, como dice dec, tendrías que llamar al constructor de cada uno:

Código Delphi [-]
 
procedure TForm.FormCreate(Sender: TObject);
begin
  ...
  SetLength(RackCard,70);
 
  for I := 0 to 69 do begin
 
    // RackCard[i] := TRackCard.Create; // no hace falta, en los records no hay que llamar al constructor.
 
   // esto es lo nuevo
    RacCard[i].ShapeA := TShape.Create(self);
   // hasta aquí lo nuevo
    RackCard[i].ShapeA.Left        :=    ...;
    RackCard[i].ShapeA.Top         :=    ...;
    // sigo definiendo aqui todos los demás atributos de ShapeA
    ...
    RackCard[i].ShapeB.Left        :=    ...;
    RackCard[i].ShapeB.Top         :=    ...;
    // sigo definiendo aqui todos los demás atributos de ShapeB, etcétera
    ...
  end;
 
end;
__________________
Saludos.
Responder Con Cita