TTabSheet-Markierung bei Fokuswechsel

sahib · Beiträge: 117 Win 2000 SP4+ Delphi 5 Prof.

Hallo.

Ich habe eine TPageControl mit mehreren TTabSheets. Mit folgenden Code sorge ich dafür, dass das aktuelle TabSheet farblich hervorgehoben wird, wenn das TabSheet gewechselt wird:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  PageControl1.ActivePage.Highlighted := False
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  PageControl1.ActivePage.Highlighted := True
end;

Wenn aber per Code das Tabsheet geändert wird, so werden die Zeilen oben nicht ausgeführt. Wie kann ich dennoch zum gleichen Ergebnis kommen, wenn die Änderung programmgesteuert kommt?

Christian

Radioactive · Verfasst: Mo 20.06.05 14:31

Einfach danach

markieren

Delphi-Quelltext

1:	Form1.PageControl1Change(Sender);

aufrufen.

_________________
Radioactive
"Wer scrollt, verliert!" Matthias Stein, Informatiklehrer am GG

sahib · Beiträge: 117 Win 2000 SP4+ Delphi 5 Prof.

Danke für die umgehende Antwort. Das klappt fasst. Jetzt habe ich nur zwei Markierungen, es wird also nur die neue gesetzt, während die vorherige bestehen bleibt. Ich könnte es natürlich über eine globale Variable machen, aber...

Christian

Radioactive · Verfasst: Mo 20.06.05 14:53

Gibt es keine Möglichkeit, den letzten Tab zu dehighlighten?

_________________
Radioactive
"Wer scrollt, verliert!" Matthias Stein, Informatiklehrer am GG

sahib · Beiträge: 117 Win 2000 SP4+ Delphi 5 Prof.

Ok, bei programmgesteuerter Änderung mache ich es jetzt so:

markieren

Delphi-Quelltext

1:
2:
3:

  PageControl1.ActivePage.Highlighted := False;
  PageControl1.ActivePageIndex := PageControl1.PageCount - 1;
  PageControl1Change(Sender);

Christian

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme