FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#21
|
||||
|
||||
Como que respondimos al mismo tiempo
__________________
...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 |
#22
|
|||
|
|||
Con este intento consigo crear un TabSheet y un Memo. Pero El Memo creado no toma las dimensiones del TabSheet. El Form se maximiza y el TabSheet queda normal con un Memo Mimimizado. He hecho la aplicación varias veces, por si había algún problema y se repite lo mismo.
Si se les ocurre algo para orientarme en cual puede ser el error se los agradeceré. Un saludo Código:
var MiHoja: TTabSheet; begin MiHoja := TTabSheet.Create(Self); MiHoja.PageControl := PageControl1; with TMemo.Create(Self) do Parent := MiHoja; Align := alClient; end; Última edición por esocrates fecha: 28-02-2004 a las 20:25:52. |
#23
|
|||
|
|||
bueno, puedes utilizar los Anchors para anclarla a las posiciones deseadas. Si quieres que se redimensione con el form
Código:
MiHoja.Anchors = [akLeft,akTop,akRight,akBottom]; |
#24
|
|||
|
|||
Hola a todos. He conseguido la solución.
Sé que para Uds. será algo sencillo. Pero para mí que estoy en los comienzos es una gran alegría. En tiempo de diseño puse align:=alClient al TPageControl para que no quede desproporcionado cuando se maximiza el Form. Luego con este código creo un panel, un Memo y el correspondiente TabSheet. (ExtCtrls en Uses para el Panel) Código:
procedure TForm1.Button1Click(Sender: TObject); var m:integer; begin with TTabSheet.Create(Self) do begin PageControl := PageControl1; Name:='Tab'+inttostr(PageIndex); Caption := name; m:=PageIndex; align:=alClient; end; with TPanel.Create(self) do begin parent:= pagecontrol1.Pages[m]; name:='Panel'+inttostr(m); caption:=name; align:=alClient; end; with TMemo.Create(self) do begin parent:= pagecontrol1.Pages[m]; name:='Memo'+inttostr(m); Align := alClient; end; end; end. Un saludo y hasta pronto Última edición por esocrates fecha: 29-02-2004 a las 13:28:35. |
#25
|
||||
|
||||
Bueno, pero... ¿de dónde sale eso de
Cita:
Porque a mi me funciona perfectamente. // Saludos |
#26
|
||||
|
||||
Tomado de la ayuda de delphi
Cita:
Cita:
__________________
...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 |
#27
|
|||
|
|||
Cita:
A mí no me funcionó y me fui a buscarlo a la ayuda de Delphi 6 para TMemo Properties y encontré esto [Ver la note] Cita:
Última edición por esocrates fecha: 01-03-2004 a las 16:18:49. |
#28
|
||||
|
||||
Perdon lei mal, crei que el que no funcionaba con el TabSheet era el Align, y resulta que es el width
Pero el align no te funcionaba por lo que te decia anteriormente
__________________
...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 |
#29
|
||||
|
||||
Cita:
Cita:
// Saludos |
#30
|
|||
|
|||
Cita:
Un saludo |
#31
|
|||
|
|||
Hola de nuevo. Aunque no posteo mucho si que entro casi a diario al foro para resolver mis dudas.
En esta ocasion resubo este hilo (bastante antiguo por lo que veo, pero lo prefiero a crear otro nuevo, razones obvias), porque la duda que tengo va en la linea. Tenia en un primer momento la misma duda que tenia esocrates, la de como crear un tabsheet y dentro de este una stringgrid en tiempo de ejecucion y lo dicho, gracias a la ayuda del propio Delphi y de este hilo lo he logrado. Pero a raiz de esto, tengo otra duda. Y os explico un poco de como va el programa en el que estoy currando ahora para que me podais ayudar mejor. Yo abro un/os fichero/s y recojo en un primer momento ciertos datos que necesito. Esta info es el nombre de un sitio, su matricula y el dia de "autos" (como en cualquier producto: tipo, referencia y dia). Si este sitio no tiene pestaña propia, debo crear una (en tiempo de ejecucion) con su propio stringgrid asociado, y de existir debo pasar la hoja de ese sitio y por ende su stringgrid. Una vez hecho esto relleno la grid con los datos del fichero abierto. Yo consigo hacerlo todo salvo pasar el stringgrid asociado a la hoja con el sitio. Os paso algo de codigo para que se entienda "mejor":
Espero que me podais ayudar, porque no se ni por donde empezar. Perdon por el tronchazo que os acabo de soltar y gracias de antemano!! |
#32
|
||||
|
||||
No estoy seguro de entender bien lo que querés... es asignar a la variable stri el StringGrid que ya está contenido en el TabSheet??
Saludos.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#33
|
|||
|
|||
Pues si, exactamente eso.
|
#34
|
||||
|
||||
Si el string grid tiene un nombre, tan fácil como:
Si no lo tiene... pero hay solo uno, entonces algo como esto:
Esto funcionará si el StringGrid está directamente sobre el PageControl. Si está en otro control, pues se busca directamente en ese contenedor... o se hace una búsqueda recursiva. Si hay varios StringGrid, pues sería de idear la forma de identificar cuál es el que te interesa y condicionar la asignación hasta que se encuentre el indicado. Un saludo.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#35
|
|||
|
|||
Muchisimas gracias jachguate, ha sido una aclaracion diafana y cristalina.
Como cada tabsheet solo tiene un control (que es la stringgrid) lo unico que pongo es:
y va todo como un tiro. La verdad, que se me cayo la cara de vergüenza al ver lo simple y facil que era. Yo me estaba rompiendo los cuernos con Controls, Parents y este tipo de cosas... por lo que solo puedo repetir : GRACIAS POR LA AYUDA!!!! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|