Как запретить смену страницы а PageControl

← →
alex123 (2004-03-24 11:39) [0]

При входе в режим правки таблицы нужно запретить смену страницы PageControl"a. Как это сделать?
Спасибо.

← →
Zergling © (2004-03-24 11:46) [1]

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
if Button1.Visible then AllowChange := false;
end;

← →
alex123 (2004-03-24 12:10) [2]

Да конечно. Спасибо.
А можно ли запрещаемой вкладке придать внешний вид который бы показывал что она запрещена, типа как enabled := false у TEdit и он приобретает другой цвет и сразу видно что низззяяя?

TabSheet1.PageControl:=nil;

Как запретить смену страницы а PageControl Найти похожие ветки