Delphi 1
Динамические создание объектов в Tabbednotebook I
procedure TForm1.TabbedNotebook1Click(Sender: TObject); var myE: TEdit;
beginwith 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;
|
[000426]