Topic: PageControl скрыть TabSheet
Здравствуйте.
Возможно ли в PageControl скрыть TabSheet?
if (not isAdmin) then FrmOrg.PageControl1.TabSheet3.Visible:=False;
My Visual Database → Russian → PageControl скрыть TabSheet
Здравствуйте.
Возможно ли в PageControl скрыть TabSheet?
if (not isAdmin) then FrmOrg.PageControl1.TabSheet3.Visible:=False;
Andrei
Try
frmOrg.TabSheet3.TabVisible := False;
OK.
Спасибо.
Подскажите как спрятать по условию два объекта.
Работает:
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;
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;
в первом варианте проверка второго условия выполнится только если первое условие будет ложь
во втором проверку на истину пройдут оба условия не зависимо не от чего
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;
Какой из вариантов правильнее использовать? для программы есть ли разница?
это зависит от того, что именно Вы ожидаете...
My Visual Database → Russian → PageControl скрыть TabSheet
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi