[malkhazibb]

Здравствуите!

Помогите пожалуста с компоненто.

На форме лежат Ribbon1, соответственно RibbonPage1, RibbonPage2, RibbonPage3. А также Panel1 , Panel2 и Panel3.

Вопрос?
Как сделат чтоб при активации RibbonPage1 активировалас Panel1 а при переходе RibbonPage2 активировалас Panel2 и т.д.


Помогите очен нужно.

[Страдалецъ]

В принципе так наверное:

Код:

procedure TForm28.Ribbon1TabChange(Sender: TObject; const NewIndex, OldIndex: Integer; var AllowChange: Boolean);
begin
 case NewIndex
 of 0: Panel1.SetFocus;
    1: Panel2.SetFocus;
    2: Panel3.SetFocus;
 end;
end;

Но тут есть один момент. Компонент TPanel никак свою активность визуально не проявляет, но доступ к контролам на активной панели вы конечно получите таким путем.

[malkhazibb]

Спасибо Страдалецъ за отзив.
В место NewIndex я писал какую то чипуху (процедуру).

получилос так (для таких чаиников как я)

Код:

procedure TForm1.Ribbon1TabChange(Sender: TObject; const NewIndex,
  OldIndex: Integer; var AllowChange: Boolean);

begin
  case NewIndex of
   0: begin
      Panel1.Visible:=True;
      Panel2.Visible:=False;
      Panel3.Visible:=False;
      end;
   1: begin
      Panel2.Visible:=True;
      Panel1.Visible:=False;
      Panel3.Visible:=False;
      end;
   2: begin
      Panel3.Visible:=True;
      Panel1.Visible:=False;
      Panel2.Visible:=False;
      end;
 end;
 end;

Ешо раз спасибо мучался почти четире дня.

[NumLock]

но можно проще:

Код:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  Panel1.Visible:=PageControl1.ActivePageIndex=0;
  Panel2.Visible:=PageControl1.ActivePageIndex=1;
  Panel3.Visible:=PageControl1.ActivePageIndex=2;
end;