• From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Topic: PageControl_OnChanging

Всех приветствую!
Кто расскажет о возможностях данного события? PageControl_OnChangе тут всё понятно, а вот варианты использования PageControl_OnChanging ?

надо идти вперёд....
  • From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Re: PageControl_OnChanging

vovka3003 wrote:

OnChanging - "до"
OnChangе - "после"

Оперируя свойством AllowChange можно запретить переход на другие вкладки.
Например такая проверка:

procedure Form1_PageControl1_OnChanging (Sender: TObject; var AllowChange: Boolean);
begin
    if (TPageControl(Sender).ActivePage.Name = 'TabSheet1') then
    AllowChange := (Form1.Edit1.Text <> '')
  else
    AllowChange := True;
end;

Не даст уйти на другую вкладку пока не заполнен Edit1.

Огромное спасибо!

надо идти вперёд....