| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TNotifyEvent и AccessViolation [D7]

Страницы:   < 1 2 >

mfender ©   (2006-12-06 14:16:00) 


type
 TmfCustomPicturePanel = class(TCustomPanel)
 private
   FbtnStretch: TSpeedButton;
   FOnStretchClick: TNotifyEvent;
 protected
   procedure StretchClick(Sender: TObject);
 public
   constructor Create(AOwner: TComponent); override;
 published
   property OnStretchClick: TNotifyEvent
     read FOnStretchClick write FOnStretchClick;
 end;

constructor TmfCustomPicturePanel.Create(AOwner: TComponent);
begin
 FbtnStretch.OnClick := StretchClick;
end;

procedure TmfCustomPicturePanel.StretchClick(Sender: TObject);
begin
 if FImage.Stretch then
   FImage.Stretch := False
 else
   FImage.Stretch := True;
 FOnStretchClick(Sender);
end;


Так вот, если я снаружи (у компонента на форме) определяю какие-то действия по клику на кнопку - всё нормально. Если нет - AccessViolation по адресу 0. Как можно избавиться от этой порчи?

---

Рамиль   (2006-12-06 14:40:00) [21]

Assigned + F1

---

Palladin   (2006-12-06 14:32:00) [22]

Не долбится головой об стенку, а проверить можно ли пройти.

---

Страницы:   < 1 2 >

Наверх