Советы по Delphi



              

Динамические создание объектов в Tabbednotebook I


    procedure TForm1.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;

[000426]




Содержание  Назад  Вперед