Thema: PageControl

Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#12

Re: PageControl

  Alt 27. Jun 2009, 20:13
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
Klaus
  Mit Zitat antworten Zitat