Подскажите, как скрыть некоторые компоненты на 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;
formShow
а что-то вродеtabChange
TTabType = (ttCredit, ttDebet)
, потом взять индекс текущего таба, привети его к этому типу,ctt := TTabType(.. .activePageIndex)
, и скрывать/показывать элементы в видеcontrol.visible := ctt = ttCredit
, или тамc.visible := ctt in [ttCredit, ttDebet]
, это куда нагляднее и читабельнее чем куча ифоф. С индексами конечно такое не очень хорошо делать, для подобных дел обычно используют свойствоtag