Вопрос по стандартному обработчику Edit

← →
вопрос (2005-02-28 18:32) [0]

Господа, мне надо сделать свой компонент, причем надо изменить стандартный обработчик Change. Если я переопределяю обработчик предка, то этот обработчик выполняется в процессе проектирования компонента. Причем, если в этом обработчике я работаю с какими-либо свойствами компонента, то при расположении уже готового компонента на форму он выдает ошибку: "Access voilation at address 00000000. Read of address 00000000" и не появляетя.
unit SEdit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSEdit = class(TEdit) private { Private declarations } protected procedure Change;override; constructor Create(TOwner:TComponent);override; public { Public declarations } published { Published declarations } end; procedure Register; implementation procedure TSEdit.Change; begin showmessage("Hello");//âîò ýòî âûïîëíÿåòñÿ ïðè ïðîåêòèðîâàíèè inherited Change; end; procedure Register; begin RegisterComponents("Samples", [TSEdit]); end; constructor TSEdit.Create(TOwner:TComponent); begin self.text:="000";//ïðè äîáàâëåíèè ýòîãî âîçíèêàåò îøèáêà inherited Create(TOwner); end; end.

← →
clickmaker © (2005-02-28 18:36) [1]

> constructor TSEdit.Create(TOwner:TComponent);
> begin
> self.text:="000";//ïðè äîáàâëåíèè ýòîãî âîçíèêàåò îøèáêà
> inherited Create(TOwner);
> end;

ставишь свойство, не создав объект. Поменяй местами строчки

← →
вопрос (2005-02-28 18:50) [2]

2 clickmaker
>ставишь свойство, не создав объект. Поменяй местами строчки
Да, спасибо. Ошибка "Access voilation at address 00000000. Read of address 00000000" больше не возникает, но всё равно при размещении компонента на форме (т.е. ещё до трансляции) запускается обработчик события Onchange у этого компонента. Как бы сделать так, чтобы он не срабатывал до запуска программы?

← →
clickmaker © (2005-02-28 18:55) [3]

> Как бы сделать так, чтобы он не срабатывал до запуска программы?

а с трех раз не догадаться? :)

← →
вопрос (2005-02-28 19:00) [4]

2 clickmaker
Ты не понял:
1) Берешь компонент с палитры
2) Кладешь на форму
3) ShowMessage тут же срабатывает
Cеки, прога не работает!!!
ShowMessage тут же срабатывает!!!!!!!!!!!!!!!

Напрашивается вопрос: WHY??????????????????
И как это исправить???

← →
Smithson (2005-02-28 19:01) [5]

у компонента есть поле ComponentState, так вот при проектировании в нем стоит флаг csDesigning. Проверяй его в OnChange.

> вопрос (28.02.05 19:00) [4]
> 2 clickmaker
> Ты не понял

я-то понял, а вот ты - похоже, нет :)
Ты в конструкторе сразу ставишь свойство текст - отсюда и ивент.
Заблокируй его на это время - и все дела

if csDesigning in ComponentState then
showmessage("Hello");//

clickmaker © (28.02.05 19:02) [6]
Заблокируй его на это время
Кого ?

> GuAV © (28.02.05 19:07) [7]

ну вот примерно как ты и показал
procedure TSEdit.Change;
begin
if csDesigning in ComponentState then Exit;

Вопрос по стандартному обработчику Edit - Change Найти похожие ветки