propriété Highlighted d'un TTabSheet (TPageControl)Résolu

Question

Bonjour,

J'ai un souci avec la propriété Highlighted de TTabSheet.
Je voulais trouver un moyen simple de mettre cette propriété à True lorsque la page correspondante est active. Voici mon code qui m'indique une erreur à la compilation :
 identificateur non déclaré : Highlighted  

No comprendo!

procedure TMainForm.PageChange(Sender: TObject);
 var C, Onglet : Integer;
begin
  For C := 0 to ComponentCount - 1 do
   if Components[C] is TTabSheet then
    For onglet := 1 to 5 do
     if TTabSheet(Sender).Name = 'TabSheet'+IntToStr(onglet)
      then TTabSheet(FindComponent('TabSheet'+IntToStr(onglet)).Highlighted := True
      else TTabSheet(FindComponent('TabSheet'+IntToStr(onglet)).Highlighted := False;
end;

Voyez-vous mon erreur?

Jean_Jean

cs_cantador · Accepted Answer

Bonjour,

une piste :


procedure TForm1.PageControl1Change(Sender: TObject);
var
  i: integer;
begin
  TTabSheet(PageControl1.ActivePage).Highlighted := not (TTabSheet(PageControl1.ActivePage).Highlighted);
end;


Reste maintenant à les rendre inactifs tous juste avant..

cantador

cs_cantador · Answer

si tu colles ceci juste avant (3 onglets)


  TTabSheet(PageControl1.Pages[0]).Highlighted := false;
  TTabSheet(PageControl1.Pages[1]).Highlighted := false;
  TTabSheet(PageControl1.Pages[2]).Highlighted := false;


ça marche, mais c'est pas beau.

cantador

cs_Jean_Jean · Answer

Merci cantador, c'est Top!

procedure TMainForm.PageChange(Sender: TObject);
 var Onglet : Integer;
begin
  For onglet := 0 to 4 do TTabSheet(PageControl1.Pages[onglet]).Highlighted := False;
  TTabSheet(PageControl1.ActivePage).Highlighted := not (TTabSheet(PageControl1.ActivePage).Highlighted);
end;

TTabSheet n'est sans doute pas considéré comme un composant pouvant être directement identifié par FindComponent... Bon à savoir

Jean_Jean

cs_cantador · Answer

pas tout à fait..
car c'est coder encore en dur.
il faudrait remplacer le 4 par un (count - 1)

cantador

cs_cantador · Answer

procedure TForm1.PageControl1Change(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to PageControl1.PageCount - 1 do
    TTabSheet(PageControl1.Pages[i]).Highlighted := False;
  TTabSheet(PageControl1.ActivePage).Highlighted := not (TTabSheet(PageControl1.ActivePage).Highlighted);
end;



cantador

Propriété Highlighted d'un TTabSheet (TPageControl)

5 réponses

Votre réponse

Discussions similaires