Topic: PageControl
привет всем. есть такой скрипт
Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form2.ShowModal;
Form2.PageControl1.ActivePageIndex:= 0;
end;
В PageContol1 имеется 2 вкладки, как сделать 2-ю вкладку неактивным?
Re: PageControl
bemorhona-qt wrote:
В PageContol1 имеется 2 вкладки, как сделать 2-ю вкладку неактивным?
Form2.PageControl1.Pages[1].TabVisible := False; Позволяет скрыть вкладку
Где Pages[1] - номер вкладки PageIndex отсчет с нуля, поэкспериментируйте
3 2016-11-07 07:28:14 (edited by bemorhona-qt 2016-11-07 08:36:21)
Re: PageControl
Igor wrote:
bemorhona-qt wrote:В PageContol1 имеется 2 вкладки, как сделать 2-ю вкладку неактивным?
Form2.PageControl1.Pages[1].TabVisible := False;Позволяет скрыть вкладку
Где Pages[1] - номер вкладки PageIndex отсчет с нуля, поэкспериментируйте
спасибо, работает.
Еще один вопрос: как запретить использование кнопки Esc во всех формах? спасибо заранее
Re: PageControl
Еще один вопрос: как запретить использование кнопки Esc во всех формах? спасибо заранее
Если вы имеете ввиду закрытие формы по нажатию на Esc ? То как правило достаточно убрать с формы кнопку c процедурой закрытия формы (выбранной через графический интерфейс программы - Action: Закрыть форму). Создать кнопку без действия и через скрипт прописать процедуру закрытия окна.
например:
procedure Form2_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form2.Close;
end;Тогда нажатие на Esc не будет приводить к закрытию формы.
- DriveSoft
- Administrator
- Offline
Re: PageControl
bemorhona-qt wrote:
Еще один вопрос: как запретить использование кнопки Esc во всех формах? спасибо заранее
Для кнопки с действием "Закрыть форму" установите свойство Cancel = False
Dmitry.
Re: PageControl
DriveSoft wrote:
bemorhona-qt wrote:Еще один вопрос: как запретить использование кнопки Esc во всех формах? спасибо заранее
Для кнопки с действием "Закрыть форму" установите свойство Cancel = False
спасибо огромное, работает.