Tpanel и OnShow

[-Jack-]

Всем привет. Собственно вопрос достаточно простой и в заголовке уже по максимум описан )))

Для компонента, родитель которого является TPanel, нужно прилепить событие OnShow ...

Вот что у меня получилось ...

__fastcall TMyPanel::TMyPanel(TComponent* AOwner):TPanel(AOwner)
{
	this->OnShow = Shower;

}
void __fastcall TMyPanel::Shower(TObject *Sender){}

void __fastcall TMyPanel::OnShowing(TNotifyEvent Value){
	this->FOnShow = Value;
}

class TMyPanel: public TPanel  {
	private:
		TNotifyEvent FOnShow;
		void __fastcall OnShowing(TNotifyEvent Value);
	public:

		__fastcall TMyPanel(TComponent* AOwner);
		void __fastcall TMyPanel::Shower(TObject *Sender);
	__published:
	   __property TNotifyEvent OnShow = {read=OnShowing, write=OnShowing, stored=VisibleChanging};
};

В принципе фурычит не совсем... Событие срабатывает только при создании компонента + не затрагивается код в Shower, хотя OnShowing срабатывает ...

[Krok27]

Если TPanel из VCL, то

class TMyPanel: public TPanel  
{
	private:
		
	public:

	__published:
	        __property OnShow;
};

[-Jack-]

Да, из VLC ... Но так я тоже пробовал ...
Выдает ошибку, ссылаюсь на свойство OnShow

E2303 Type name expected

	__published:
	   __property OnShow;

[Krok27]

class PACKAGE TMyPanel : public TPanel
{
private:
	TNotifyEvent FOnShow;
protected:
	DYNAMIC void __fastcall VisibleChanging(void);
	
public:
	__fastcall TMyPanel(TComponent* Owner);

__published:
	__property TNotifyEvent OnShow = {read=FOnShow, write=FOnShow};

void __fastcall TMyPanel::VisibleChanging(void)
{
 	                if(this->Visible)
			{
				if(FOnShow)
					FOnShow(this);
			}
}

так попробуй.

[-Jack-]

попробовал так, не срабатывает ...

Сообщение от Krok27

class PACKAGE TMyPanel : public TPanel
{
private:
	TNotifyEvent FOnShow;
protected:
	DYNAMIC void __fastcall VisibleChanging(void);
	
public:
	__fastcall TMyPanel(TComponent* Owner);

__published:
	__property TNotifyEvent OnShow = {read=FOnShow, write=FOnShow};

void __fastcall TMyPanel::VisibleChanging(void)
{
 	                if(this->Visible)
			{
				if(OnShow)
					OnShow(this);
			}
}

Решил попробовать немного переделать и добавить OnHide

__fastcall TMyPanel::TMyPanel(TComponent* AOwner):TPanel(AOwner){
	this->OnShow = Shower;
	this->OnHide = Hider;
}
void __fastcall TMyPanel::Shower(TObject *Sender){
	ShowMessage("Shower Event");
}

void __fastcall TMyPanel::Hider(TObject *Sender){
	ShowMessage("Hider Event");
}


void __fastcall TMyPanel ::VisibleChanging(void){
	if(this->Visible){
		if(OnShow)
			OnHide(this);
	} else {
		if(OnHide)
			OnShow(this);
	}
}

	private:
		TNotifyEvent FOnShow;
		TNotifyEvent FOnHide;
	public:
		__fastcall TMyPanel(TComponent* AOwner);
		void __fastcall Shower(TObject *Sender);
		void __fastcall Hider(TObject *Sender);
	protected:
		DYNAMIC void __fastcall VisibleChanging(void);
	__published:
	   __property TNotifyEvent OnShow = {read=FOnShow, write=FOnShow};
	   __property TNotifyEvent OnHide = {read=FOnHide, write=FOnHide};

Так начал в принципе код работать, но вот один нюанс, при создании объекта OnShow не срабатывает, объект нужно сначала спрятать, а потом снова показать ... после чего событие OnShow срабатывает...

[Krok27]

Как проверяешь работу компонента?

[-Jack-]

В смысле ? создаю объект, он создаётся, я его вижу на форме ...

Но при этом событие OnShow не срабатывает. И мне приходится, сначала спрятать его, затем снова показать, после чего только и срабатывает событие OnShow...