Наследование форм - выдается ошибка
DelphiLexx © (2005-11-25 18:40:00)
Есть форма fmAbstDctBrowser у нее имеется кнопка
"Отмена", которая содержит следующий код.
procedure
TfmAbstDctBrowser.bbCancelClick(Sender: TObject);
begin
MResult := mrCancel;
if (not (fsModal in FormState)) then {***}
Close;
end;
Создаю другую форму MyForm, которая наследуется от
fmAbstDctBrowser и при нажатии на кнопку "Отмена" формы MyForm
начинает выполшняться код fmAbstDctBrowser, но как только начинает
выполняться строка {***} выдается предупреждение о том что память
не может быть прочетана. В чем может быть проблема.
Юрий Зотов (2005-11-26 04:19:00) [1]
Уберите внешние скобки.
:о)
Наверх 
ЧАТ |
Орешник |
|
