Создание вкладки.

[фЁдОр]

Здравствуйте , уважаемые программисты!
Помогите, пожалуста, разобраться. Как мне создать несколько вкладок?

[Stilet]

С помошью компонента TPageControl

[Aleksandr]

В инспекторе объектов выбираешь Pages-Add и в Page name напиши имя твоей будущей вкладки (это для TabbedNotebook из вкладки Win 3.1.)
Если используешь PageControl то нажимаешь правую кнопку мыши и выбираешь NewPage

[фЁдОр]

Спасибо за совет, но я почему-то не найду в инспекторе объектов Pages-Add

[Stilet]

Ищи свойство Pages и кликай на кнопке возле него.

[pentiumForever]

Попробуй это!это перестройка вкладки TPageControl с помощью Drag and Drop :

procedure TForm1.PageControl1MouseDown(Sender : TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PageControl1.BeginDrag(False);
end;



procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
const
TCM_GETITEMRECT = $130A;
var
i: Integer;
r: TRect;
begin
if not (Sender is TPageControl) then Exit;
with PageControl1 do
begin
for i := 0 to PageCount - 1 do
begin
Perform(TCM_GETITEMRECT, i, lParam(@r));
if PtInRect(r, Point(X, Y)) then
begin
if i <> ActivePage.PageIndex then
ActivePage.PageIndex := i;
Exit;
end;
end;
end;
end;



procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
if Sender is TPageControl then
Accept := True;
end;

[фЁдОр]

Спасибо большое за совет, я разобрался.

[Jenya]

Доброго времени суток, Уважаемые коллеги.
Подскажите пожалуйста кто-нить, как программным путём, во время выполнения программы, создавать новые вкладки на PageControl, при этом, на каждой вкладке создавать по новому StringGrid, очень нужно, желательно с примерами для чайников. Зарание спасибо.

[alexBlack]

var P:TTabSheet;
    E : TEdit;
begin
   P := TTabSheet.Create(PageControl1);
   P.PageControl := PageControl1;
   P.Caption := 'page1';

   // Все компоненты создаются одинаково
   E := TEdit.Create(Self);    // кому принадлежит (кто уничтожает)
                                       // Self ы данном случае :TForm  - создание в методе формы
   E.Parent := P;                 // на каком компоненте отрисовывается

[Stilet]

Один вопрос - одна тема

Закрыто!