• From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Topic: PageControl скрыть TabSheet

Здравствуйте.
Возможно ли в PageControl скрыть TabSheet? 

if (not isAdmin) then FrmOrg.PageControl1.TabSheet3.Visible:=False;
  • CDB
  • Member
  • Offline
  • Registered: 2019-12-16
  • Posts: 370

Re: PageControl скрыть TabSheet

Andrei

Try

frmOrg.TabSheet3.TabVisible := False;

On a clear disk you can seek forever
  • From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Re: PageControl скрыть TabSheet

OK.
Спасибо.

  • From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Re: PageControl скрыть TabSheet

Подскажите как спрятать по условию два объекта.
Работает:

procedure Form_Main_ComboBox5_OnChange (Sender: TObject);
     begin

   if Form_Main.ComboBox5.dbItemID <> 5 then form_Main.Edit6.Visible := False
    else if Form_Main.ComboBox5.dbItemID = 5 then form_Main.Edit6.Visible := True

       end;

Нужно что-то подобное:

procedure Form_Main_ComboBox5_OnChange (Sender: TObject);
     begin

   if Form_Main.ComboBox5.dbItemID <> 5 then form_Main.Edit6.Visible := False and form_Main.Label20.Visible := False
    else if Form_Main.ComboBox5.dbItemID = 5 then form_Main.Edit6.Visible := True and form_Main.Label20.Visible := True


       end;

5 Reply by sibprogsistem (edited by sibprogsistem 2020-05-12 15:19:55)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: PageControl скрыть TabSheet

procedure Form_Main_ComboBox5_OnChange (Sender: TObject);
     begin
  if (Form_Main.ComboBox5.dbItemID <> 5) then  begin
          form_Main.Edit6.Visible := False;
          form_Main.Label20.Visible := False;
   end else begin
          if (Form_Main.ComboBox5.dbItemID = 5) then begin
                     form_Main.Edit6.Visible := True;
                     form_Main.Label20.Visible := True;
          end;
   end;
end;
procedure Form_Main_ComboBox5_OnChange (Sender: TObject);
     begin
  if (Form_Main.ComboBox5.dbItemID <> 5 ) then  begin
          form_Main.Edit6.Visible := False;
          form_Main.Label20.Visible := False;
   end; 
   if (Form_Main.ComboBox5.dbItemID = 5) then begin
          form_Main.Edit6.Visible := True;
          form_Main.Label20.Visible := True;
    end;
end;

в первом варианте проверка второго условия выполнится только если  первое условие будет ложь
во втором проверку на истину пройдут оба условия не зависимо не от чего

  • From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Re: PageControl скрыть TabSheet

sibprogsistem спасибо.
До Вашего ответа подобрал рабочий код

procedure Form_Main_ComboBox5_OnChange (Sender: TObject);
     begin
if Form_Main.ComboBox5.dbItemID <> 5 then form_Main.Edit6.Visible := False
    else if Form_Main.ComboBox5.dbItemID = 5 then form_Main.Edit6.Visible := True;
    if Form_Main.ComboBox5.dbItemID <> 5 then form_Main.Label20.Visible := False
    else if Form_Main.ComboBox5.dbItemID = 5 then form_Main.Label20.Visible := True;
end;

Какой из вариантов правильнее использовать? для программы есть ли разница?

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: PageControl скрыть TabSheet

это зависит от того, что именно Вы ожидаете...