procedure TForm1.MainScreenChange(Sender: TObject); begin if MainScreen.ActivePage = MainHome then begin MainLogo.Visible:=true; Blurb.Visible := false; end else MainLogo.Visible:=false; Blurb.Visible:=true; end;
heebiejeebies, I think your lack of indenting is "hurting" you. ;)
Your code is:
procedure TForm1.MainScreenChange(Sender: TObject); begin if MainScreen.ActivePage = MainHome then begin MainLogo.Visible:=true; Blurb.Visible := false; end else MainLogo.Visible:=false; Blurb.Visible:=true; end;
So, you are always setting Blurb to Visible.
I think you meant to do:
procedure TForm1.MainScreenChange(Sender: TObject); begin if MainScreen.ActivePage = MainHome then begin MainLogo.Visible:=true; Blurb.Visible := false; end else begin MainLogo.Visible:=false; Blurb.Visible:=true; end; end;
cheers
S.
And you could further abbreviate it to:which leaves no room for mistakes. ;D
procedure TForm1.MainScreenChange(Sender: TObject); begin MainLogo.Visible := MainScreen.ActivePage = MainHome; Blurb.Visible := not MainLogo.Visible; end;