| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
martinlop2007
Lt JG
Registrado: 20 Feb 2007Mensajes: 67
|
 Publicado: Lun 12 Nov, 2007 7:41 pm Asunto: Problemas con un "PageControl" |
 |
|
Ante todo un saludo al foro, y ahora a lo que sigue.
Verán tengo un aplicación la cual quiero que me muestre en un "PageControl" una ficha con cada uno de las líneas de una tabla.
Creo los "TabSheet", y lo que pretendo es que recorra la tabla y me muestre como titulo de los "TabSheet" el valor de un campo nombre de dicha tabla.
Espero que tengan compasión de un humilde servidor.
Gracias.  |
|
| Volver arriba |
|
 |
alfredo
Master
Registrado: 13 Oct 2003Mensajes: 246Ubicación: Valencia Venezuela
|
| Publicado: Jue 22 Nov, 2007 7:38 pm Asunto: |
|
|
Hola, La forma de hacerlo es crear dinamicamente los componentes, asumo que lo deseas editable asi que utilizaremos DBEdits pero puedes substituirlos por DBText.
En un Form con una TTable y un DataSource que apunte a este en el evento Create del form:
| Código: |
int vPos=10, hPos=10; //Posicion de los controles
for(int i=0;i<Table1>FieldsCount)
{
TDBEdit *Edit=new TDBEdit(this)
Edit->Parent=Form1;
Edit->DataSource=DataSource1;
Edit->DataField= Table1->Fields->Fields[i]->FieldName;
Edit->Left=hPos;
Edit->Top=vPos;
if(hPos+Edit->Width>=Form1->width-10)
hPos=10;
else
hPos=hPos+Edit->Width+5;//el 5 por la separacion
vPos=Vpos+Edit->Height+5;
} |
En este lugar no tengo instalado el builder, asi que este codigo es de memoria y sin probar, pero por ahi va..
Si usas un TabSheet cambia el valor del Parent en el codigo y listo. |
|
| Volver arriba |
|
|
martinlop2007
Lt JG
Registrado: 20 Feb 2007Mensajes: 67
|
| Publicado: Jue 20 Dic, 2007 12:54 pm Asunto: |
|
|
Ante todo perdona por la tardanza Allfredo pero he tenido mucho trabajo y deje aparcado el asunto.
Muchas gacias por el codigo , pero al final he optado por otro sistema, pero gracias de todos modos.
Un Saludo. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
