PageControl и запрет на переход между страницами

[Шульц]

На форме есть PageControl и Memo. Когда в Мемо я что то ввожу, Page должна заблокироваться и не дать сменить страницу, но при этом Мемо остается активной и рабочей.
Как это можно реализовать?

[raxp]

...обрабатывать смену страниц в pagecontrol. если событием для блокировки может быть клик на memo

procedure TForm1.Memo1Click(Sender: TObject);
begin
 pp:= true
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
 if (pp)and(pagecontrol1.ActivePage<>tabsheet1) then
  pagecontrol1.ActivePage:= tabsheet1
end;

то снятием блокировки может быть таймер запускаемый в процедуре ввода значений в memo.

...смысл ясен?

[Шульц]

Не совсем. Ведь если поставить блок на клик, то не обязательно туда вводить что-то, а просто кликнуть достаточно. А надо, что бы когда пользователь начнет менять данные, запретился переход на другую страницу, но на change не прокатит, так как мемо может заполнится и программно.

Про снятие совсем не понял.

[raxp]

тогда выработайте для себя, что считать событием блокировки...

а memo.change покатит еще как, просто добавьте еще флаг проверки, т.е. если программное добавление идет, то пусть выставляется флаг-2 в true, а если ручное, то этот флаг не появиться, и блокировка пусть идет с проверкой этих двух флагов

procedure TForm1.Memo1Change(Sender: TObject);
begin
 if (not ppp) then pp:= true
end;
...
//ppp в true при программном добавлении

[mihali4]

А я бы сделал проще:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key>Chr(0) then
noexit:=True;
end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_ESCAPE then
noexit:=False; // Это к примеру. Нужно же как-то известить прогу, что редактирование завершено...
end;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
AllowChange:=not noexit;
end;

noexit - глобальная.

[Шульц]

Спасибо, mihali4. Немного переделал под себя, но пример мне понравился