Features1Click method |
Applies to
TForm2
Declaration
procedure Features1Click(Sender: TObject);Implementation
procedure TForm2.Features1Click(Sender: TObject); begin try N36.Enabled :=(Notebook1.PageIndex <> 1)and(Notebook1.PageIndex <> 4)and(Notebook1.PageIndex <> 10); AddArticletotheResearcher1.Enabled :=N36.Enabled; except end;End; |
|