Скачать: CL | DM;

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

← →
вопрос   (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.

---

← →
clickmaker ©   (2005-02-28 19:02) [6]

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

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

---

← →
GuAV ©   (2005-02-28 19:07) [7]

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

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

---

← →
clickmaker ©   (2005-02-28 19:35) [8]

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.974 c