Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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


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;

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011