FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como Crear un TabSheet en Tiemo de Ejecucion
Como estan amigos foreros
Tengo un PageControl q este a su vez puede contener varios TabSheet, en Modo de Diseño le doy Boton derecho al page control y luego le doy click a "NEW PAGE". Ahora yo quisiera hacerlo en modo de Ejecucion crear los tabSheet que se desee. Se lo Agradesco Mucho GRACIASSSSSSS He Colocado Var pcForms: TRzPageControl; TabSh1: TRzTabSheet; . . . . . begin tabsh1.PageControl:= pcForms; end; |
#2
|
|||
|
|||
Hola Michel, se supone que ya tienes el PageControl en un formulario, entonces el código siguiente te crea 10 TabSheet al hacer clic en el botón:
Código:
procedure TForm1.Button1Click(Sender: TObject); var i:Byte; begin for i:=1 to 10 do with TTabSheet.Create(Self) do begin PageControl := PageControl1; Name:='Mitab'+IntToStr(i); Caption := name; end; end; Saludos |
|
|
|