Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
1. Sep 2007
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
1. Sep 2007
Dann werte den ActivePageIndex doch einfach per case aus.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
1. Sep 2007
Meinst Du so etwas?procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePageIndex > 0 then
ShowMessage('Hallo, schöne Welt');
end;