Topic: PageControl
привет всем. есть такой скрипт
Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form2.ShowModal;
Form2.PageControl1.ActivePageIndex:= 0;
end;
В PageContol1 имеется 2 вкладки, как сделать 2-ю вкладку неактивным?
My Visual Database → Russian → PageControl
привет всем. есть такой скрипт
Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form2.ShowModal;
Form2.PageControl1.ActivePageIndex:= 0;
end;
В PageContol1 имеется 2 вкладки, как сделать 2-ю вкладку неактивным?
В PageContol1 имеется 2 вкладки, как сделать 2-ю вкладку неактивным?
Form2.PageControl1.Pages[1].TabVisible := False;
Позволяет скрыть вкладку
Где Pages[1] - номер вкладки PageIndex отсчет с нуля, поэкспериментируйте
bemorhona-qt wrote:В PageContol1 имеется 2 вкладки, как сделать 2-ю вкладку неактивным?
Form2.PageControl1.Pages[1].TabVisible := False;
Позволяет скрыть вкладку
Где Pages[1] - номер вкладки PageIndex отсчет с нуля, поэкспериментируйте
спасибо, работает.
Еще один вопрос: как запретить использование кнопки Esc во всех формах? спасибо заранее
Еще один вопрос: как запретить использование кнопки Esc во всех формах? спасибо заранее
Если вы имеете ввиду закрытие формы по нажатию на Esc ? То как правило достаточно убрать с формы кнопку c процедурой закрытия формы (выбранной через графический интерфейс программы - Action: Закрыть форму). Создать кнопку без действия и через скрипт прописать процедуру закрытия окна.
например:
procedure Form2_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Form2.Close;
end;
Тогда нажатие на Esc не будет приводить к закрытию формы.
Еще один вопрос: как запретить использование кнопки Esc во всех формах? спасибо заранее
Для кнопки с действием "Закрыть форму" установите свойство Cancel = False
bemorhona-qt wrote:Еще один вопрос: как запретить использование кнопки Esc во всех формах? спасибо заранее
Для кнопки с действием "Закрыть форму" установите свойство Cancel = False
спасибо огромное, работает.
My Visual Database → Russian → PageControl
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi