PageControl-tabsheet-focus

[DeddyH]

Dann werte den ActivePageIndex doch einfach per case aus.

[poterp]

wie geht das?

[DeddyH]

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  case PageControl.ActivePageIndex of
    0: Machwas_mit_der_ersten_Seite;
    1: Machwas_mit_der_zweiten_Seite;
    2: Machwas_mit_der_dritten_Seite;
  end;
end;

[mkinzler]

Delphi-Quellcode:

Case PageControl.ActivePageIndex of
  1: ..
  2: ...
  ...
end;

[poterp]

Hör sich schon gut an danke. ich probiere es

[poterp]

es Klappt nicht

[poterp]

Hallo,
so habe ich es gelöst:

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage.Caption = Tabsheet1.Caption then
begin
showmessage('hallo');
end
else
if PageControl1.ActivePage.Caption = Tabsheet2.Caption then
begin
showmessage('Na');
end
else
if PageControl1.ActivePage.Caption = Tabsheet3.Caption then
begin
showmessage('3');
end
else
end;

grüß
poter

[grenzgaenger]

sag mal, weshalb nimmste nicht das TapSheet.onEnter ereignis?

[poterp]

Ich habe es auch probiert aber ging nicht

[grenzgaenger]

haste ein tTabSheet auf dein tPageControl abgelegt oder mit der rechten Maustaste ein integriertes erzeugt? Im ersten falle funktionierts...