Usar TListView fuera de un form

[[escafandra]]

    TListView *listaBPs;
    original = 'c';
    int valor = 1000;

    //Creo el listview
    listaBPs = new TListView(Application->MainForm);
    listaBPs->ViewStyle = vsReport; // Para visualizar con columnas
    //le indico cual es su parent
    listaBPs->Parent = Application->MainForm;

    //Añadimos una columna por cada subitem SON TRES COLUMNAS
    listaBPs->Columns->Add();  // Para Caption
    listaBPs->Columns->Add();  // Para Subitem1
    listaBPs->Columns->Add();  // Para Subitem2

    //Añado un item y le añado dos subitems
    TListItem  *ListItem = listaBPs->Items->Add();
    // El array listaBPs->Items->Item comienza en CERO !!!!
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(valor);   
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(original);

    //Añado un item y le añado dos subitems
    ListItem = listaBPs->Items->Add();
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(valor+1);
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(original);

    listaBPs->Update();   // Para visualizar los cambios
    Sleep(1000);            // Para ver que ha pasado
    //borro el listview
    delete listaBPs;

Saludos.

[aguml]

Me sigue dando el mismo problema ya que el problema me lo daba en esta linea:

TListItem  *ListItem = listaBPs->Items->Add();

El problema tiene que venir por otro lado

Gracias por el interes.

[[escafandra]]

Pues algo haces en tu código pues lo que te he expuesto funciona perfectamente (BCB5 y BCB6), siempre que exista un formulario principal (Application->MainForm)

Revisa los errores que he puesto comentados.

Te expongo lo que usé para probar:

#include <ComCtrls.hpp>
BOOL SearchBPOnList(DWORD address, unsigned char original)
{
    TListView *listaBPs;
    original = 'c';
    int valor = 1000;

    //Creo el listview
    listaBPs = new TListView(Application->MainForm);
    listaBPs->ViewStyle = vsReport; // Para visualizar con columnas
    //le indico cual es su parent
    listaBPs->Parent = Application->MainForm;

    //Añadimos una columna por cada subitem SON TRES COLUMNAS
    listaBPs->Columns->Add();  // Para Caption
    listaBPs->Columns->Add();  // Para Subitem1
    listaBPs->Columns->Add();  // Para Subitem2

    //Añado un item y le añado dos subitems
    listaBPs->Items->Add();
    // El array listaBPs->Items->Item comienza en CERO !!!!
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(valor);   
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(original);

    //Añado un item y le añado dos subitems
    listaBPs->Items->Add();
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(valor+1);
    listaBPs->Items->Item[listaBPs->Items->Count-1]->SubItems->Add(original);

    listaBPs->Update();   // Para visualizar los cambios
    Sleep(1000);            // Para ver que ha pasado
    //borro el listview
    delete listaBPs;
}

Saludos.

[aguml]

Pues es raro ya que es un proyecto normal de c++builder 6 con su form llamado Form1 el cual tiene que hacer uso de esa funcion que estará en un archivo llamado busqueda.cpp y que debe ser portable hacia otros proyectos asi que no puedo poner como nombre Form1 ni nada por el estilo al crear el listview para no tener que estar pendiente de ese cambio al cambiar de proyecto.
Ya me dices lo de que no hay un MainForm y la verdad es que yo creia que el MainForm seria Form1 en este caso pero me haces dudar.
Igual el fallo viene por ahi pero no se. La idea es que coja al formulario principal del proyecto.
Ya he corregido los errores que me indicas pero tengo dudas.
1-No quiero visualizarlo por pantalla ¿tengo que hacer lo del estilo y el update entonces?
2-Solo quiero guardar dos datos por fila ¿se necesitan 3 columnas o podria usar el primer valor como caption y el segundo como subitem y solo crear dos columnas?

Gracias por la ayuda.

[[escafandra]]

Añadirte que si creas un componente con dueño, este se encargará de su destrucción, por lo que no debes destruirlo.
Si quieres destruirlo tú mismo, entonces créalo así:

listaBPs = new TListView((TComponent*)0);

Piensa que si no asignas un Parent (ventana donde se va a visualizar) el código marcará una excepción. También fallará si lo creas antes de que el Handle de su parent exista, por ejemplo en el evento OnCreate del formulario principal.

No entiendo porqué no quieres que se vea, si es un simple "almacén", es mejor que guardes los datos de otra forma, como en un TStringList, por ejemplo.


Saludos

[aguml]

¿en un TStringList se puede tener dos columnas? si es asi me vale igual.
Por cierto, he probado el codigo en un proyecto nuevo y funciona perfecto pero en el que lo tengo no funciona. El codigo pertenece a una clase y el TListView esta en el private de la clase y es creado en el constructor, añado los items desde otra funcion de la clase y lo destruyo en el destructor. ¿puede ser por algo de eso?

[[escafandra]]

Empezado por aguml

¿en un TStringList se puede tener dos columnas? si es asi me vale igual.

Un StringList no tiene dos columnas pero si las manejas de 2 en dos, las dos primeras pertenecen a la colunma 1 y 2 del primer elemento...

Puedes hacer un array de dos dimensiones o crear una estructura con dos string y hacer un array de ésta. Tambien puedes usar TList como array dinámico de tu estructura. En definitiva, tienes muchísimas soluciones a tu problema.

Empezado por aguml

Por cierto, he probado el codigo en un proyecto nuevo y funciona perfecto pero en el que lo tengo no funciona. El codigo pertenece a una clase y el TListView esta en el private de la clase y es creado en el constructor, añado los items desde otra funcion de la clase y lo destruyo en el destructor. ¿puede ser por algo de eso?

Si lo vas a destruir tú mismo, el objeto no debe tener dueño, para lo que debes crearlo así:

listaBPs = new TListView((TComponent*)0);

Saludos.

[ecfisa]

Empezado por aguml

¿en un TStringList se puede tener dos columnas?

Hola aguml.

Podes aprovechar la propiedad Objects como segunda columna:

...
TStrings *TS = new TStringList;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  for(int i=0;i<10;i++)
   TS->AddObject("Item:" + IntToStr(i),((TObject*)(i*10)));
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for(int i=0;i<10;i++)
  ListBox1->Items->Add(TS->Strings[i]+ " - " +
    IntToStr((int)TS->Objects[i]));
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  TS->Clear();
  for(int i=0;i<TS->Count;i++)
    delete TS->Objects[i];
}

En el caso que quisieras almacenar otro tipo (AnsiString en el ejemplo):

...
class TClase {
public:
  AnsiString Cadena;
};

TClase *Clase;
TStrings *TS = new TStringList;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 for(int i=0;i<10;i++) {
  Clase = new TClase;
  Clase->Cadena = "Col2: "+IntToStr(i*10);
  TS->AddObject("Col1: "+IntToStr(i), ((TObject*)Clase));
 }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for(int i=0;i<10;i++)
  ListBox1->Items->Add(TS->Strings[i]+ " - " +
    ((TClase*)(TS->Objects[i]))->Cadena);
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  TS->Clear();
  for(int i=0;i<TS->Count;i++)
    delete TS->Objects[i];
}

Saludos