PageControl

[Kunoishi]

ich habe bei mit 3 sichtbare Tabfelder

[Klaus01]

Guten Abend,

so funktioniert es bei mir.
Eine RadioGroup hatte ich zum Umschalten der Laufrichtung
verwendet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vorwärts
  if RadioGroup1.ItemIndex = 0 then
    PageControl1.SelectNextPage(true,true)
  else
    // rückwärts
    PageControl1.SelectNextPage(false,true);
end;

oder kürzer:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PageControl1.SelectNextPage(RadioGroup1.ItemIndex = 0,true)
end;

Grüße
Klaus