Платные хостинги     Раскрутка сайта     Книги по программированию

Создание события, Новое событие

- Создан компонент линейка на базе TCustomPanelУ TCustomPanel нет событий.Создаю событие OnChange при котором возвращается положениеползунка линейки.Когда в тестовой программе создана процедура на событие OnChangeвсе работает нормально, если событие не создано возникает ошибкапереполнение стэка.Где может быть ошибка? unit ChRuler;interfaceuses Windows, SysUtils, Classes, Controls, StdCtrls,Graphics,ExtCtrls;Type TChangeEvent = procedure(Sender: TObject; var AValue: Integer) of object;type TChRuler = class(TCustomPanel) private { Private declarations }............................. FChange:TChangeEvent; protected { Protected declarations }.............................. public { Public declarations }.............................. procedure Change(Sender: TObject; var AValue: Integer); published { Published declarations }.............................. property OnChange:TChangeEvent read FChange write FChange; end;procedure Register;implementationconstructor TChRuler.Create(AOwner : TComponent);begin inherited Create(AOwner);.......................... OnChange:=Change;end;................................procedure TChRuler.Change(Sender: TObject; Var AValue:Integer);Begin//вызов обработчика пользователяIF assigned(FChange) Then OnChange(self,AValue)End;end.

- Ошибка у тебя в том, что в обработчике события ты вызываешь его же.OnChange:=Change; - убери эту строчку, и вызывай метод Change уже на событие изменения ползунка линейки

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD