работа с Объектом {TabSheet}

[Rebel123]

Добрый Вечер. Интересует следующее:
вот у меня есть на форме 4 TabSheet'a то есть на каждом клике должен нажиматься по пордяку! вот не могу сделать! пытался так:

procedure TForm2.Button2Click(Sender: TObject);
begin
Button3.Enabled:=True;
case M of
1:Begin
M:=M+1;
TabSheet2.Show;
End;
// и т.д.
end;
end;

Но свойство Show не помогает!

[SERG1980]

так

form1.PageControl1.ActivePageIndex:=1;

или так

form1.PageControl1.ActivePage:=TabSheet2

[Stilet]

Я б даже так написал:

form1.PageControl1.ActivePageIndex:=form1.PageControl1.ActivePageIndex+1

Ну и проверку не забыть на количество этих страниц.

[Rebel123]

и не то и не это не получилось!

[postal2]

Может будет проще работать с компонентом TabbedNotebook (win 3.1) Там вроде попроще с этим делом

[Пепел Феникса]

ТС показывай как пробывал

[SERG1980]

Не знаю что у вас не получается Stilet вам всё расписал. Попробуйте ещё такой вариант

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.PageControl1.SelectNextPage(true,true);//вперёд
//form1.PageControl1.SelectNextPage(false,true);//назад
end;

[Rebel123]

SERG1980 - отлично! все работает! + вам ставлю!