Страница 1 из 3
Code: |
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;
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; |
- Назад
- Вперёд >>
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!