![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
|
Juntar dos componentes en una clase
Pues quiero crear una clase que derive del TPanel y que contenga un Panel y un listbox
TblPanel.h Código:
//---------------------------------------------------------------------------
#ifndef TblPanelH
#define TblPanelH
//---------------------------------------------------------------------------
class TTblPanel : public TPanel
{
__published:
private:
TTblPanel *TblPanel;
TListBox *ListBox1;
TPanel *Panel2;
public:
__fastcall TTblPanel(TWinControl *Parent);
};
//---------------------------------------------------------------------------
#endif
Código:
//---------------------------------------------------------------------------
#include <vcl.h>
#include "TblPanel.h"
//---------------------------------------------------------------------------
__fastcall TTblPanel::TTblPanel(TWinControl *Parent)
: TPanel(Owner)
{
TTblPanel::Parent = Parent;
TTblPanel::Height = 200;
TTblPanel::Width = 160;
TTblPanel::Visible = true;
TTblPanel::Panel2->Caption = "yyy";
TTblPanel::Panel2->Align = alTop;
TTblPanel::ListBox1->Align = alClient;
}
//---------------------------------------------------------------------------
|
|
#2
|
||||
|
||||
|
Por lo que veo, fallas en que Panel2 no existe. Y posiblemente Listbox1 tampoco. Debes crear (o asignar la referencia) estos objetos antes de poder usarlos,
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi! - BAScript - Multi Language Scriptable Development Environment |
![]() |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Juntar Numeros | RebeccaGL | MySQL | 4 | 04-08-2011 14:35:40 |
| Pasar mi clase a una clase de 3 capas o lo mas parecido | elarys | OOP | 2 | 07-04-2011 23:02:54 |
| Juntar tablas verticalmente | ELINK | Firebird e Interbase | 5 | 15-02-2010 05:53:55 |
| clase que contiene otra clase definida de forma posterior | astwin | OOP | 5 | 20-02-2009 11:26:55 |
| Juntar dos archivos en uno | DarkByte | Varios | 51 | 09-11-2006 16:37:54 |
|