Solved

List of events

Posted on 1997-12-21
8
172 Views
Last Modified: 2012-05-04
How do I fire events stored in a TList ?
0
Comment
Question by:miv
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 4
8 Comments
 
LVL 4

Expert Comment

by:d003303
ID: 1354325
What exactly do you mean ? Do you want to fire multiple event handlers for one event stored in a TList, or event handlers for different events stored in this list ?
0
 
LVL 1

Author Comment

by:miv
ID: 1354326
option 2
0
 
LVL 4

Expert Comment

by:d003303
ID: 1354327
Yo,

maybe you could explain a bit why you need to store the event handlers in a TList. That would help to make a better answer.
Basically it is only typecast. Lets assume that the stored event is a TNotifyEvent, here is a quick example :

   TMyObject = class(TObject)
     FEventList: TList;
     FEventCount: Integer;
     constructor Create;
     destructor Destroy; override;
     procedure SetOnClick(NewValue : TNotifyEvent);
     function GetOnClick: TNotifyEvent;
     property OnClick: TNotifyEvent read GetOnClick write SetOnClick;
   end;

constructor TMyObject.Create;
var Index : Integer;
begin
  inherited Create;
  FEventList := TList.Create;
  FEventCount := 1;
  for Index := 0 to FEventCount - 1
   do FEventList.Add(nil);
end;

destructor TMyObject.Destroy;
begin
  FEventList.Free;
  inherited Destroy;
end;

procedure TMyObject.SetOnClick(NewValue : TNotifyEvent);
begin
  FEventList[0] := @NewValue;
end;

function TMyObject.GetOnClick: TNotifyEvent;
var FEvent : TNotifyEvent;
begin
  @FEvent := FEventList[0];
  Result := FEvent;
end;

Fireing events would be like the code in GetOnClick, but better check first if the pointer is not nil.

Hope this helps,

Slash/d003303
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Author Comment

by:miv
ID: 1354328
Ok, I´ll try to explain exactly what I want:

I have an object which on modification of some vars need to notify all the viewers which is viewing the object.

The viewers has added their "OnReshow" event to the "NotificationList" on the object.

I want to traverse the NotificationList and fire all the events on the list.

But as the list only knows that it is containing pointers, it can´t treat them as events. Have tried typecasting, but get compiler errors everytime...
0
 
LVL 4

Accepted Solution

by:
d003303 earned 50 total points
ID: 1354329
Yo,

the typecast you need is in the GetOnClick-method. This converts the pointers to the event methods.

You could also use it like

var FEvent : TNotifyEvent;
    Index : Integer;
begin
  for Index := 0 to FEventList.Count - 1 do
   if FEventList[Index] <> nil then
    begin
      @FEvent := FEventList[Index];
      FEvent(Self);
    end;
end;

to fire all events stored in FEventList.

0
 
LVL 1

Author Comment

by:miv
ID: 1354330
Hi,
It was to fast to accept that answer.

The FEvent seems to pointing no where (or maybe into the ROM :-) when I fire it...

Any suggestions ?

  Michael
0
 
LVL 4

Expert Comment

by:d003303
ID: 1354331
Yo,

to help you on that I need some sample code where the event list is filled, and where the events are fired.

Slash/d003330
0
 
LVL 1

Author Comment

by:miv
ID: 1354332
Hi,
It´s ok. I created a dummy object with one attribut and added that object to the list instead. That works but´s a bit of a workaround.
I can´t post my code, you´ll need apx. 70000 lines to reconstruct the error :-(

Thanks for the help anyway, you earned your points.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

710 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question