Ver Mensaje Individual
  #4  
Antiguo 12-03-2014
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
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:
Código:
#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.
Responder Con Cita