Cita:
Empezado por roman
Debes asignar PageControl1 a la propiedad PageControl del TabSheet recién creado.
// Saludos
|
Gracias por la respuesta.
Efectivamente con esta indicación he conseguido crear un nuevo TabSheet.
Pero no sé cómo crearlo con un Memo en su interior como lo he hecho en tiempo de diseño con el primer TabSheet.
Para ser más claro esta es la copia del código con el que ensayo la solución de este problema.
Código:
unit PageControl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
TTabSheet.Create(Self);
TMemo.Create(Self);
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
end;
end;
end.
Un saludo