Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

изменить область видимости метода   Найти похожие ветки 

 
Kray1   (2005-10-19 14:11) [0]

Хочу сделать не видимым для других форм метод формы ShowModal.
Нашел такой путь:

Type
 TForm1 = class(TForm)
 private
   function ShowModal: Integer; override;
 end;

function TForm1.ShowModal: Integer;
begin
 Result := inherited ShowModal;
end;

какие есть другие способы изменения области видимости  методов объектов?
Что не корректного есть в этом методе?

Причина: в большом проекте много обращений, хочу что бы в дальнейшем никогда и никто не вызвал метод ShowModal формы из других модулей, только через спец. методы


 
Digitman ©   (2005-10-19 14:16) [1]


> Что не корректного есть в этом методе?


этот способ не имеет ничего общего с изменением области видимости.


 
Kray ©   (2005-10-19 14:58) [2]

to Digitman ©
как тогда правильно изменить область видимости метода?


 
Экспериментатор   (2005-10-19 15:12) [3]

никак


 
Amoeba ©   (2005-10-19 15:13) [4]

Сузить область видимости метода нельзя. RTFM.


 
Юрий Зотов ©   (2005-10-19 15:41) [5]

> Kray1   (19.10.05 14:11)  

> Что не корректного есть в этом методе?

То, что он ничего не изменит.

> хочу что бы в дальнейшем никогда и никто не вызвал метод ShowModal
> формы из других модулей, только через спец. методы

Перекройте ShowModal и в нем, не вызывая унаследованного ShowModal, просто возбуждайте исключение (больше ничего). А унаследованный ShowModal вызывайте из Ваших спецметодов.

И получится как раз то, что Вам нужно, да еще и с автоматическим обнаружением прямого вызова ShowModal.


 
Kray ©   (2005-10-19 17:22) [6]

всем спасибо - все понятно



Страницы: 1 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
4-1138383062
Kolan
2006-01-27 20:31
2006.04.16
Асинхронная работа с Com портом.


2-1143699058
Logos
2006-03-30 10:10
2006.04.16
Формула


4-1138123111
Игорь Степанов
2006-01-24 20:18
2006.04.16
Использование функции GetTickCount для создания задержки в 8 мсе


15-1143242015
fert
2006-03-25 02:13
2006.04.16
Куплю КПК


2-1143693035
Sw
2006-03-30 08:30
2006.04.16
DBGrid