Господа, сделайте так.
На форме сделайте две кнопки EditFalse и EditTrue. Наложите одну на другую.
На OnPush кнопки EditTrue напишите:
CurrForm.EDITABLE := TRUE;
CurrForm.EditTrue.VISIBLE:=FALSE;
CurrForm.EditFalse.VISIBLE:=TRUE;
На OnPush кнопки EditFalse напишите:
CurrForm.EDITABLE := FALSE;
CurrForm.EditFalse.VISIBLE:=FALSE;
CurrForm.EditTrue.VISIBLE:=TRUE;
На OnOpenForm напишите:
//При открытии формы, если там нет данных редактировать можно
IF NOT FIND('-') THEN
CurrForm.EDITABLE := TRUE
ELSE
//При открытии формы, если там есть данные запрещаем редактирование
CurrForm.EDITABLE := FALSE;
CurrForm.EditFalse.VISIBLE:=FALSE;
И нет проблем.
|