0

Подскажите, как скрыть некоторые компоненты на tabsheet Кредитоваядебетовая На дебетовой скрыть источники дохода, вроде скрыл а на кредитовой их показать но скрыть платежи по службе, там не получилось!

Вот код:

procedure TfrmPayment.FormShow(Sender: TObject);
begin
  if (cxPageControl1.ActivePageIndex = 0) then
    begin
     lblDoxod.Visible := False;
      cbDoxod.Visible := False;
      lbl8.Visible := True;
      cbDep.Visible := True;
    end;
  if (cxPageControl1.ActivePageIndex = 1) then
    begin
      lblDoxod.Visible := True;
      cbDoxod.Visible := True;
      lbl8.Visible := False;
      cbDep.Visible := False;
    end;
end;
2
  • 1
    дак вы попробуйте код писать не в formShow а что-то вроде tabChange
    – teran
    20 сен 2019 в 7:49
  • и рассмотрите возможность завести тип данных, а-ля TTabType = (ttCredit, ttDebet), потом взять индекс текущего таба, привети его к этому типу, ctt := TTabType(.. .activePageIndex), и скрывать/показывать элементы в виде control.visible := ctt = ttCredit, или там c.visible := ctt in [ttCredit, ttDebet], это куда нагляднее и читабельнее чем куча ифоф. С индексами конечно такое не очень хорошо делать, для подобных дел обычно используют свойство tag
    – teran
    20 сен 2019 в 7:54

2 ответа 2

1

Вы записали код скрытия элементов не в том обработчике. Событие TForm.OnShow срабатывает при показе формы, и если у вас это главная форма, то оно происходит только один раз - при запуске программы.

То что вам нужно - событие TPageControl.OnChange, которое происходит всякий раз, когда вы переключаетесь между табами. Перенесите свой код в этот обработчик, и всё будет работать как надо.

5
  • К сожалению, всё равно не работает((
    – user284221
    20 сен 2019 в 9:32
  • @user284221 Ищите ошибку у себя и воспользуйтесь дебагером. Для начала, поставьте брекпоинт и убедитесь, что срабатывает событие OnChange.
    – zed
    20 сен 2019 в 9:57
  • 1
    Не принципиально, у человека PageControl, там на каждом TabSheet свои элементы, их можно и при старте все прекрасно настроить... Вот если бы это был TabControl, тогда другое дело. Другой вопрос, что он меняет видимость элементов вовсе не на TabSheet, как стоит в вопросе, или не видит, что на разных TabSheet они у него должны быть разные
    – Isaev
    20 сен 2019 в 10:56
  • @Isaev С одной стороны - согласен, но с другой стороны - если на каждом табе свои элементы и они должны быть невидимы, то зачем они вообще там?
    – zed
    20 сен 2019 в 12:41
  • это вопрос к автору) я вижу только то, что он привёл
    – Isaev
    20 сен 2019 в 12:45
0

Всем спасибо, все работает)

При open:

cxPageControl1.ActivePageIndex := 0;
cbDoxod.Visible := False;
lblDoxod.Visible := False;
cbDep.Visible := True;
lbl8.Visible := True;

При PageChanging:

if (cxPageControl1.ActivePageIndex = 1) then
begin
  lblDoxod.Visible := False;
  cbDoxod.Visible := False;
  lbl8.Visible := True;
  cbDep.Visible := True;
end
else
begin
  lblDoxod.Visible := True;
  cbDoxod.Visible := True;
  lblDoxod.Top := 51;
  cbDoxod.Top := 48;
  lbl8.Visible := False;
  cbDep.Visible := False;
end;
2
  • А почему вы решили использовать событие OnChanging, а не OnChange, как я советовал?
    – zed
    20 сен 2019 в 12:43
  • @zed дак ткнул в первое похожее видимо :) зы: почему бы исходные значения не задать в конструкторе форм, зачем их писать в onShow ?
    – teran
    20 сен 2019 в 13:03

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.