e:=False; .Enabled:=True; .Opacity:=1; .Visible:=True; exit; end; layPage5.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage4.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage3.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage2.Visible=True then begin.Visible:=False; .Enabled:=False; .Opacity:=0.4; .Visible:=True; exit; end ;; TfrmMainMenu.imgArrowRightClick (Sender: TObject); layPage1.Visible=True then begin.Visible:=False; .Enabled:=True; .Opacity:=1; .Visible:=True; exit; end; layPage2.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage3.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage4.Visible=True then begin.Visible:=False; .Visible:=True; exit; end; layPage5.Visible=True then begin.Visible:=False; .Enabled:=False; .Opacity:=0.4; .Visible:=True; exit; end ;; TfrmMainMenu.imgLetterAClick (Sender: TObject);:=TfrmLetterA.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterBClick (Sender: TObject);:=TfrmLetterB.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterChClick (Sender: TObject);:=TfrmLetterCh.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterDClick (Sender: TObject);:=TfrmLetterD.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterEClick (Sender: TObject); :=TfrmLetterE.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterFClick (Sender: TObject);:=TfrmLetterF.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterGClick (Sender: TObject);:=TfrmLetterG.Create ( Self) ;. Show ;; TfrmMainMenu.imgLetterHClick (Sender: TObject);:=TfrmLetterH.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterIClick (Sender: TObject);:=TfrmLetterI.Create (Self) ;. Show; ; TfrmMainMenu.imgLetterIiClick (Sender: TObject);:=TfrmLetterIi.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterJClick (Sender: TObject);:=TfrmLetterJ.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterKClick (Sender:TObject);:=TfrmLetterK.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterKhClick (Sender: TObject);:=TfrmLetterKh.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterLnClick (Sender: TObject);:= TfrmLetterLn.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterMClick (Sender: TObject);:=TfrmLetterM.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterNClick (Sender: TObject);:=TfrmLetterN.Create (Self) ; .Show ;; TfrmMainMenu.imgLetterNgClick (Sender: TObject);:=TfrmLetterNg.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterOClick (Sender: TObject);:=TfrmLetterO.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterPClick (Sender: TObject);:=TfrmLetterP.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterRClick (Sender: TObject);:=TfrmLetterR.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterSchClick (Sender: TObject );:=TfrmLetterSch.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterSClick (Sender: TObject);:=TfrmLetterS.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterShClick (Sender: TObject);:=TfrmLetterSh. Create (Self) ;. Show ;; TfrmMainMenu.imgLetterTClick (Sender: TObject);:=TfrmLetterT.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterTsClick (Sender: TObject);:=TfrmLetterTs.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterUClick (Sender: TObject);:=TfrmLetterU.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterVClick (Sender: TObject);:=TfrmLetterV.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterYaClick (Sender: TObject);:=TfrmLetterYa.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterYClick (Sender: TObject);:=TfrmLetterY.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterYeClick (Sender: TObject); :=TfrmLetterYe.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterYoClick (Sender: TObject);:=TfrmLetterYo.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterYuClick (Sender: TObject);:=TfrmLetterYu.Create ( Self) ;. Show ;; TfrmMainMenu.imgLetterYyClick (Sender: TObject);:=TfrmLetterYy.Create (Self) ;. Show ;; TfrmMainMenu.imgLetterZClick (Sender: TObject);:=TfrmLetterZ.Create (Self) ;. Show; ; TfrmMainMenu.imgLetterZhClick (Sender: TObject);:=TfrmLetterZh.Create (Self) ;. Show ;; TfrmMainMenu.imgReadExClick (Sender: TObject);:=TfrmReadEx.Create (Self);
frmReadEx.Show ;;.
Пересування по сторінках
unit ReadEx; .SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, .Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts, .Memo, FMX.Objects;=class (TForm): TImage ;: TImage ;: TLayout ;: TImage ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage ;: TMemo ;: TGridPanelLayout ;: TImage;:TMemo; FormCreate (Sender: TObject); imgArrowRightClick...