Динамические создание объектов в TabbedNotebook
Динамические создание объектов в TabbedNotebook
procedureTForm1.TabbedNotebook1Click(Sender: TObject);
var
myE: TEdit;
begin
with TabbedNotebook1 do
begin
if PageIndex = 1 then
begin
myE := TEdit.Create(Self);
myE.Left := 12;
myE.Top := 12;
myE.Parent := Pages.Objects[PageIndex] as TWinControl;
myE.Show;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Button2:Tbutton;
begin
button2:=tbutton.create(self);
button2.parent:=TabbedNotebook1.Pages.Object[0] as TTabPage;
button2.setbounds(30,30,60,30);
end;