FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Crear un Objeto dentro de un Panel
Ayuda amigos, necesito crear objetos dinamicos dentro de un panel o cualquier otro contenedor ,pueden ser botones , la cantidad de objetos dependera de la cantidad de campos que haya en la tabla pueden ser 1 o hasta 300 , osea que el panel debe ir creciendo o dismuniyendo de acuerdo a la cantidad de objetos que se creen en el.
Alguna idea para empezar este trabajo....??? Muchas Gracias, |
#2
|
||||
|
||||
puedes utilizar un scrollbox, y le asignas el parent de el control hijo a el control box
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#3
|
||||
|
||||
Hola sancarlos, como te dice Eduardo, debes utilizar el componente ScrollBox de la paleta Additional, para obtener la lista de campos de tu tabla puedes utilizar el procedimiento GetFieldNames, el codigo quedaría asi, estoy creando botones por cada campo.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#4
|
|||
|
|||
Hola. Un par de apuntes sobre el codigo de caro. Se deberia liberar slCampos antes de salir de la funcion, y de la misma manera (por ejemplo en el formdestroy o al crear nuevos botones) se han de liberar manualmente los objetos creados en ella. Saludos.
Última edición por coso fecha: 09-07-2008 a las 09:15:42. |
#5
|
||||
|
||||
Hola,
Cita:
En cuanto a los botones creados en tiempo de ejecución, a estos se les está asignando un "dueño":
"Self" es el dueño del recién creado componente, y será "Self" quien, cuando se destruya, se encargue de liberar los componentes cuyo "dueño" sea el propio "Self". Al menos esto es lo "natural", porque, otra vez si no me equivoco, nada te impediría liberar por tu cuenta los botones: pero el propio "Self" lo hará si tú no lo haces antes por otro lado. |
#6
|
|||
|
|||
Gracias dec, creia q todo lo que se crea en tiempo de ejecucion mediante el create se habia de liberar manualmente tendre que repasar un poquillo el tema. Saludos
PD: una duda q tenia tambien al respecto del codigo de Caro. No deberia darse una variable Button para cada uno de los componentes creados? he probado su codigo y funciona perfectamente. Yo lo hubiera escrito con un array. Última edición por coso fecha: 09-07-2008 a las 09:55:35. |
#7
|
|||
|
|||
Excelente, dime una cosa existe la forma de que los botones se alinien de acuerdo al tam;o de scrollbox y no en forma linea hacia abajo.
|
#8
|
||||
|
||||
Hola sancarlos, puedes crear los botones en el lugar que lo quieres, es solo jugar con las propiedades Left, Top.., del componente (Button) que estas creando, inclusive puedes darle el ancho (Widtdh) y alto(Heigth). En el ejemplo estoy incrementando la propiedad Top, por eso te muestra uno debajo de otro, a la altura (Heigth) del componnete le sumo 10 mas para que haya un espacio entre componente y componente.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#9
|
||||
|
||||
Hola a todos,
Si no les molesta, quisiera exponer algunas palabras que se deberían considerar: Cuando uno asigna un dueño a un control. Por lo general, y la primera regla que se sigue, es que sea el mismo dueño quien se encargue de liberarlo. Si es necesario explícitamente liberar algún control que posee dueño asegurense de que en otra parte del código, a seguir, no se haga referencia a dicho objeto. No vaya a ser cosa de que puedan surgir goteos de memoria y algún que otro InvalidException. La regla que normalmente se sigue es: Cita:
Creo entender que debido a la naturaleza del problema, necesariamente se debe liberar los botones creados cada vez que se invoque el procedimiento ya que al menos para mi, a como está descripto el problema, no se puede garantizar la cantidad de objetos que se necesitan. Tal vez no he sido demasiado claro en explicación, si es necesario reordenar mis palabras para que se entienda avisenme. Saludos, |
#10
|
|||
|
|||
Caro Mira :
type myarray= array of string ; var A:myarray; tMyBoton: Tedit; firstrow,secondrow, i : integer; nameofport:string; begin setlength (A,200); adoports.Close; adoports.SQL.Clear; adoports.SQL.Add('select * from ts.tcpports where active='+chr(39)+'T'+chr(39)+''); adoports.Prepared; adoports.Open; firstrow:=0; secondrow:=0; i:=0; while not adoports.Eof do begin try tMyBoton := Tedit.create(self); finally tmyboton.Name:='s'+adoportsportnumber.AsString+'s';//new tMyBoton.Parent := MyPanel; if firstrow <= 600 then begin firstrow := firstrow + 30; tMyBoton.left := firstrow; tMyBoton.Top := 2; end ; if (firstrow>600 ) and (firstrow <= 1200) then begin secondrow := secondrow + 30; tMyBoton.left := secondrow; tMyBoton.Top := 30 ; end ; tMyBoton.Width := 25; tMyboton.height := 25; tMyBoton.visible := true; tMyBoton.OnClick := self.MyClick; tMyBoton.tag := 1 ; if adoportsstatus.AsInteger = 0 then begin tMyboton.ShowHint:=true; tMyBoton.Hint:='Ip: '+adoportsaddress.AsString + 'Socket: '+ adoportssocket.AsString; tMyBoton.Color:=clred; tMyBoton.font.Color:=clwhite; tMyBoton.Cursor:=crHandPoint; tMyBoton.ReadOnly:=true; tMyBoton.BorderStyle:=bsnone; tMyBoton.PopupMenu:=menuports; end ; if adoportsstatus.AsInteger = 1 then begin tMyboton.ShowHint:=true; tMyBoton.Hint:='Ip: '+adoportsaddress.AsString + 'Socket: '+ adoportssocket.AsString; tMyBoton.Color:=clgreen; tMyBoton.font.Color:=clwhite; tMyBoton.Cursor:=crDrag; tMyBoton.ReadOnly:=true; tMyBoton.BorderStyle:=bsnone; tMyBoton.PopupMenu:=menuports; end ; // i:=i+1; A[i]:='s'+adoportsportnumber.AsString+'s' ; inc(i); tMyBoton.Text :=adoportsportnumber.AsString; end; adoports.Next; end; for i := low(A) to high(A) do begin listbox1.Items.Add(A[i]); end; Este Codigo me Sirve de maravilla , crea los edit , y guardo en un array los nombre de los edit que estan compuestos por el nombre del campo de la tabla y una s al principio y al final. Todo Bien , pero el asunto es que debo estar refrescando , y pues tengo este otro proceso. var scrollbox:tscrollbox; tMyBoton: Tedit; firstrow,secondrow, i : integer; nameofport:string; begin mypanel.destroy; scrollbox := Tscrollbox.create(self); scrollbox.Parent := frmenu; scrollbox.Name := 'mypanel'; scrollbox.Width := 664; scrollbox.Height := 155; scrollbox.Left :=8; scrollbox.Top :=426; scrollbox.BorderStyle :=bsnone; scrollbox.Enabled:=true; scrollbox.Visible:=true; adoports.Close; adoports.SQL.Clear; adoports.SQL.Add('select * from ts.tcpports where active='+chr(39)+'T'+chr(39)+''); adoports.Prepared; adoports.Open; i:=adoports.RecordCount; firstrow:=0; secondrow:=0; while not adoports.Eof do begin try tMyBoton := Tedit.create(self); finally tMyBoton.Parent := mypanel; if firstrow <= 600 then begin firstrow := firstrow + 30; tMyBoton.left := firstrow; tMyBoton.Top := 2; end ; if (firstrow>600 ) and (firstrow <= 1200) then begin secondrow := secondrow + 30; tMyBoton.left := secondrow; tMyBoton.Top := 30 ; end ; tMyBoton.Width := 25; tMyboton.height := 25; tMyBoton.visible := true; tMyBoton.OnClick := self.MyClick; tMyBoton.tag := 1 ; if adoportsstatus.AsInteger = 0 then begin tMyboton.ShowHint:=true; tMyBoton.Hint:='Ip: '+adoportsaddress.AsString + 'Socket: '+ adoportssocket.AsString; tMyBoton.Color:=clred; tMyBoton.font.Color:=clwhite; tMyBoton.Cursor:=crHandPoint; tMyBoton.ReadOnly:=true; tMyBoton.BorderStyle:=bsnone; tMyBoton.PopupMenu:=menuports; end ; if adoportsstatus.AsInteger = 1 then begin tMyboton.ShowHint:=true; tMyBoton.Hint:='Ip: '+adoportsaddress.AsString + 'Socket: '+ adoportssocket.AsString; tMyBoton.Color:=clgreen; tMyBoton.font.Color:=clwhite; tMyBoton.Cursor:=crDrag; tMyBoton.ReadOnly:=true; tMyBoton.BorderStyle:=bsnone; tMyBoton.PopupMenu:=menuports; end ; tMyBoton.Text :=adoportsportnumber.AsString; end; adoports.Next; end; Que lo mismo solo que destruye todo y vuelve a crear . Pero lo que necesito es destruir solo los edit que ya no vienen en sql, no todos , por que a cada uno tiene algun proceso vivo en la aplicacion .....como por ejemplo un popumenu . Pense en meter todo en un arreglo Compara y eso va bien.... pero como destruyo solo los edit que no necesito... Gracias... un poco largo , pero asi me explico mejor.... |
#11
|
|||
|
|||
Caro , mira cree edit por cuanto los botones en delphi 2005 , no se porque la opcion de color de font no se cambia al color que quiero de hecho ni siquiera en tiempo de dise;o, alguna pulga de Delphi, o algun tip que no conozco.....me gustaria crear botones y no edit, mas que todo por la interfaz
O bien el color de fondo del boton,,,,,,no se.. Muchas gracias |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Crear objetos dentro de otro objeto. | Nieto | OOP | 5 | 28-11-2007 23:09:12 |
No funcionan componentes TSelectOnRuntime cuando estan controles dentro de un panel | gulder | API de Windows | 6 | 11-08-2006 09:58:50 |
Crear un label dentro de un panel | abogado | Varios | 1 | 28-03-2005 13:43:16 |
Utilizar propiedad dentro de un objeto | senpiterno | Varios | 4 | 21-04-2004 18:53:32 |
colocar un objeto dentro de un StringGrid | oneromm | Varios | 2 | 27-12-2003 13:45:47 |
|