Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];

Вниз

Событие формы   Найти похожие ветки 

 
veb   (2003-05-21 13:56) [0]

Коллеги, подскажите как получить в инспекторе объектов новое событие для формы, т.е.

Property OnInit: TNotifyEvent read FOnInit write FOnInit;

Как и где нужно регистрировать такую форму?


 
Paladin   (2003-05-21 14:32) [1]

Ты имеешь ввиду:
Как создать класс, наследник от TForm так, чтобы при просмотре его свойсив и событий в Object Inspector, отображались новые добавленные тобой в раздел published свойства и события?


 
Юрий Зотов   (2003-05-21 14:37) [2]

RegisterCustomModule(TMyForm, TCustomModule);

Или еще лучше - скачайте и инсталлируйте себе эксперт CCPack5 от Сергея Орлика:
http://www.geocities.com/sergey_orlik/index.html


 
veb   (2003-05-21 16:03) [3]

to paladin
совершенно верно!

то Юрий Зотов
[Error] Unit1.pas(28): Undeclared identifier: "RegisterCustomModule"
В helpe и в модуле Classes не найдено!

Спасибо.


 
MBo   (2003-05-21 16:06) [4]

dsgnintf.pas


 
Юрий Зотов   (2003-05-21 16:33) [5]

> veb (21.05.03 16:03)

В Delphi есть поиск строки в файлах. Не пробовали? Зря.


 
veb   (2003-05-21 17:05) [6]

to MBo
небольшая корректировка: в D7 это модуль DesignIntf.pas

Однако, я все еще не справился с проблемой.

1. TCustomModule - не найден, заменил на TBaseCustomModule, чувствую, что сделал глупость. Вообщем нужна ваша помощь. Может я где-то в Helpe могу найти, в каком разделе?

2.
procedure Register;
begin
RegisterCustomModule( TForm1, TBaseCustomModule);
end;

Код отработал, но никаких новых свойств!


 
Skier   (2003-05-21 17:10) [7]

Скачай CCPack5. Посмотри исходники.
Help-а по RegisterCustomModule - нет, по крайней мере в D5.
В D7 не знаю...


 
Юрий Зотов   (2003-05-21 17:19) [8]

Надеюсь, новое свойство объявлено в published?


 
Юрий Зотов   (2003-05-21 17:22) [9]

Упустил из виду - новые свойства должны появиться в НАСЛЕДНИКАХ TForm1, а не в ней самой.


 
veb   (2003-05-21 17:28) [10]

то Юрий
Действительно не пробовывал, но теперь все в порядке кроме одного моя программа отработала но нужного мне события я получить не могу, где появляется моя форма. Откуда наследовать остальные.

Uses Unit1, Forms, DesignIntf, DesignEditors, TypInfo, Windows, SysUtils, Classes;
RegisterCustomModule( TForm1, TCustomModule);


 
Юрий Зотов   (2003-05-21 17:37) [11]

> Откуда наследовать остальные

От той формы, класс которой Вы зарегистрировали:
TForm2 = class(TForm1)

В uses модуля с TForm2 должен быть прописан модуль с TForm1.


 
veb   (2003-05-21 17:40) [12]

то Юрий
я ожидал, что моя форма появится в репозитарии. Тогда подскажите еще, пожалуйста, как внести новую форму в репозитарий.


 
Юрий Зотов   (2003-05-21 17:48) [13]

> как внести новую форму в репозитарий.
Правой кнопкой мыши.

Предвидя следующий вопрос:

Если на этой форме есть компоненты и она зарегистрирована через RegisterCustomModule, то в ее наследнике новые свойства появятся, а вот все компоненты, увы, исчезнут.

По этому поводу потребуется класть предков в пакет. См. сюда:
http://delphimaster.net/view/15-1053007120/


 
veb   (2003-05-21 18:07) [14]

ДА жизнь интересная штука!

Всем спасибо, отдельная благодарность Юрию Зотову.



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

Форум: "Основная";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.85 MB
Время: 0.045 c
7-3184
SiJack
2003-04-01 15:03
2003.06.02
Проблема - не дать отключится монитору!!!


1-2989
Стрелок
2003-05-21 10:00
2003.06.02
Найти текст в тексте


14-3135
circul
2003-05-13 16:39
2003.06.02
Бывает же такая погода...


1-2953
Vulko
2003-05-15 19:12
2003.06.02
Как создать папку...


1-2873
QUE
2003-05-22 14:29
2003.06.02
??? CreateParams ???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский