Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
procedure TForm1.PageControl1Change(Sender: TObject); begin ActiveControl:= nil; end;