PageControl

[chingiz]

Привет всем. Подскажите как в PageControl при переключении страницы узнать на какую страницу я переключаюсь?

[Stilet]

PageControl1.ActivePage
или
PageControl1.ActivePageIndex
В событии OnChanging

[chingiz]

Сообщение от Stilet

PageControl1.ActivePage
или
PageControl1.ActivePageIndex
В событии OnChanging

Так я узнаю на какой закладке я нахожусь в данный момент, а мне надо узнать на какую закладку я перехожу и по некоторому условию запретить или разрешить переход именно на конкретную страницу

[_SERGEYX_]

Еще в событии OnChanging есть NewIndex: Integer;
Как раз то, что нужно.

запретить или разрешить переход именно на конкретную страницу

Еще там есть AllowChange: Boolean

[chingiz]

Сообщение от _SERGEYX_

Еще в событии OnChanging есть NewIndex: Integer;
Как раз то, что нужно.
[/B]

Про AllowChange я знаю. А вот NewIndex: Integer; я не нашел. У меня Delphi 7 может в этом дело?

[_SERGEYX_]

Ой. Точно. Просто я пользуюсь компонентами Raize.
Там такое событие

procedure TForm1.RzPageControl1Changing(Sender: TObject; NewIndex: Integer;
  var AllowChange: Boolean);
begin
//
end;

Сам не знал, что в стандартном PageControl по-другому.

[Stilet]

chingiz

А в хелп вера заглянуть не позволяет? Есть же еще событие OnChange

[chingiz]

Сообщение от Stilet

А в хелп вера заглянуть не позволяет? Есть же еще событие OnChange

ну и что, а как по твоему в onchenge я должен запретить открытие ну скажем второй закладки?

[Stilet]

НАпример так:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
if TPageControl(sender).ActivePageIndex=1 then
 TPageControl(sender).ActivePageIndex:=TPageControl(sender).tag;
end;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
TPageControl(sender).Tag:=TPageControl(sender).ActivePageIndex;
end;

[chingiz]

Сообщение от Stilet

НАпример так:

Попробовал, в принципе можно как вариант. Но всетаки с таким кодом переключение все равно происходит, а потом просто идет возврат на предыдущую страницу. мне это не подходит. В общем то спасибо всем кто откликнулся - решение найдено. Кому интересно вот код

var
PosX:integer;
PosY: integer;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if  PageControl1.IndexOfTabAt(PosX,PosY) = 1 then
  AllowChange:=false;
end;

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  PosX:=X;
  PosY:=Y;
end;