Ver Mensaje Individual
  #24  
Antiguo 29-02-2004
esocrates esocrates is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina
Posts: 210
Reputación: 22
esocrates Va por buen camino
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.
Muchas gracias por todo lo que me ayudaron
Un saludo y hasta pronto

Última edición por esocrates fecha: 29-02-2004 a las 13:28:35.
Responder Con Cita