procedure TForm2.File1Click(Sender: TObject);
begin try
SavePage1.Enabled :=(Notebook1.PageIndex <> 1)and(Notebook1.PageIndex <> 4)and(Notebook1.PageIndex <> 10);
Print1.Enabled := SavePage1.Enabled;
PicturesinthisArticle1.Enabled := SavePage1.Enabled;
ExportArticle1.Enabled:= SavePage1.Enabled;
SaveVideoAudioFile1.Visible :=(Notebook1.PageIndex=4);
SaveVideoAudioFile1.Enabled :=(SaveVideoAudioFile1.Visible)and(minfo_list.ItemIndex>-1);
SavePage1.Visible := not SaveVideoAudioFile1.Visible;
SaveAllPictures1.Enabled :=ExportArticle1.Enabled;
except end;End;