Código:
var
MiHoja: TTabSheet;
begin
MiHoja := TTabSheet.Create(Self)
MiHoja.PageControl := PageControl1;
with TMemo.Create(Self) do
Parent := MiHoja;
end;
Eso es todo
__________________
...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
|