PageControl запрет на переход по вкладкам

[TIXIY]

народ, подскажите пожалуйста, как запретить переход по вкладкам в pagecontrol мышкой, у меня переход осуществляеться через combobox...
И вот мне надо чтобы переход был только через комбобокс и чтобы мышкой нельзя было перейти на другую вкладку.....=-)))) заранее спасибо..=))

[veniside]

по вкладкам пожно ещё стрелками переходить, будем всё запрещать?
не проще ли унять свою лень и позволить юзеру работать с контролом так, как он привык?
а комбобокс синхронизировать с текущей вкладкой, каким бы образом она не менялась.

[TIXIY]

мне просто надо сделать так, чтобы пользователь не мог кликать по вкладкам..=))) препод так сказал сделать..=))))

я нашел, свойство Enabled ставишь false и все..=)) блин это оказалось проше чем я думал..=)))

[artemavd]

Все еще проще:

procedure TForm1.sPageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
 AllowChange:=False;
end;