Reiter in einem TPageControl disabeln

[Sharky]

Hai jryan,

Zum "Anzeigen" ob der Reiter "enabled" ist kannst Du das OnDrawTab Ereigniss benutzen.
z.B:

Delphi-Quellcode:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
const
 _sTabCaptions : array [0..1] of string = ('Stammdaten','Ansprechpartner');
begin
 if (Tab_is_enabled) then  // hier muss deine Bedingung abgefragt werden.
 begin
   PageControl1.Canvas.Brush.Color := cllime;
 end
 else
 begin
   PageControl1.Canvas.Brush.Color := clSilver;
 end;
 Control.Canvas.FillRect(Rect);
  //Beim selber Zeichnen muss auch die Caption gezeichnet werden
 Control.Canvas.TextOut(Rect.Left+2,Rect.Top+2,_sTabCaptions[TabIndex]); 
end;

Um zu verhindern das die TabSeite geöffnet wird verwendest Du einfach das OnChanging Ereigniss. Dort kansst Du verhinden das eine TabSeite geöffnet wird.