Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #18  
Antiguo 31-10-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
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 Snaked.

Si, es totalmente correcto. Podes ir almacenando las naves en una lista a medida que las creas y luego referirte a cada nave mediante la lista.

Ejemplo sobre el código anterior:
Código PHP:
TListlst;
Ships1;

void __fastcall TForm1::FormCreateTObject *Sender )
{

  
lst = new TList;

  
s1 = new ShipthisPoint(10,100), Point240,200) );
  
s1->Image->Picture->LoadFromFile"face-smile.jpg" );
  
s1->Timer->Interval 10;
  
lst->Add(s1);

  
s1 = new ShipthisPoint(  50,  50 ), Point150300 ) );
  
s1->Image->Picture->LoadFromFile"face-sad.jpg" );
  
s1->Timer->Interval 10;
  
lst->Add(s1);

  
s1 = new ShipthisPoint(  8090 ), Point(  220100 ) );
  
s1->Image->Picture->LoadFromFile"face-monkey.jpg" );
  
s1->Timer->Interval 10;
  
lst->Add (s1 );

 
//... mas naves
}

void __fastcall TForm1::btnStartClickTObject *Sender )
{
  for  (
int i 0lst->Counti++ )
     
static_cast<Ship*>( lst->Items[i] )->Timer->Enabled true// (*)
}

void __fastcall TForm1::FormDestroyTObject *Sender )
{
  for (
int i 0lst->Counti++)
    
delete lst->Items[i];
  
lst->Free();

(*) Te podes referir a cada nave de la lista cambiando el índice de la propiedad vectorial Items.

Saludos
__________________
Daniel Didriksen

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



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Copiar TLabel.Canvas sobre TBitmap.Canvas @CSE1970 Gráficos 2 23-10-2013 12:46:53
Impresion linea por linea en tiquete de caja Livey Impresión 2 21-12-2010 00:21:05
uso de DLL creada con VB6 lichi OOP 0 12-09-2005 16:55:46
Como imprimir por canvas un caracter de salto de linea buitrago Impresión 3 30-08-2004 11:10:05
¿Cómo borrar un grid sin tener que ir línea a línea? Isaac Varios 2 18-02-2004 16:13:14


La franja horaria es GMT +2. Ahora son las 05:07:55.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi