Z punktu widzenia programisty ;-) , chciałbym wiedzieć, czy jest możliwość zoptymalizowania poniższego przykładu, w którym każda ze stron (PanelTutorialPage) jest kolejno przełączana i zachodzi pętla, która pozwala na oglądanie kart od nowa.
procedure TForm.TutorialClick(Sender: TObject);
begin
if PanelTutorialPage1.Visible = True then
begin
PanelTutorialPage1.Visible := False;
PanelTutorialPage2.Visible := True;
PanelTutorialPage3.Visible := False;
end
else
if PanelTutorialPage2.Visible = True then
begin
PanelTutorialPage1.Visible := False;
PanelTutorialPage2.Visible := False;
PanelTutorialPage3.Visible := True;
end
else
if PanelTutorialPage3.Visible = True then
begin
PanelTutorialPage1.Visible := True;
PanelTutorialPage2.Visible := False;
PanelTutorialPage3.Visible := False;
end;
end;