Sender of door library event

E

ExcludeReality

Active Member

Licensed User

• Dec 28, 2009

• #1

Hello.
I've tied several controls to an event using the door library.
I'd like to know which of the controls triggered the event.

The Sender keyword doesn't work, and neither does Obj.GetProperty ("Sender").

Does anyone know how to do this?
Thanks.

 

agraham

Expert

Licensed User

Longtime User

• Dec 29, 2009

• #2

ExcludeReality said:

I've tied several controls to an event using the door library.

Click to expand...

How are you doing this? Usually one Door library Event object handles one event for one control and the name of the Event object will identify the source. You can't get the original event raising control because the Sender, as far as the Basic4ppc event handling code sees it, is the Door library Event object and I can't see a way round this.

 

E

ExcludeReality

Active Member

Licensed User

• Dec 29, 2009

• #3

agraham said:

How are you doing this?

Click to expand...

B4X:

Obj.FromControl ("control1")
DoorEvent.New1 (Obj.Value,"MouseMove")

Obj.FromControl ("control2")
DoorEvent.New1 (Obj.Value,"MouseMove")

Obj.FromControl ("control3")
DoorEvent.New1 (Obj.Value,"MouseMove")

The event itself works good.
So are you saying there's no way to get the sender property?

 

Erel

B4X founder

Staff member

Licensed User

Longtime User

• Dec 29, 2009

• #4

You should use three different event objects like DoorEvent1, DoorEvent2 and DoorEvent3.
Sender will return the name of the event object which you will be able to parse in order to find the actual control.

 

E

ExcludeReality

Active Member

Licensed User

• Dec 29, 2009

• #5

Thanks for your reply.

I can't have seperate events for each control because I add new controls in runtime.
I supose I can use AddObject to add an event, but since each event has an individual sub, I also need to add the sub in runtime (which is not possible).

Any ideas?

 

agraham

Expert

Licensed User

Longtime User

• Dec 30, 2009

• #6

This seems to work with Sender identifying the Event object

B4X:

Sub App_Start
   Form1.Show
   Obj.New1(False)
   AddObject("Event1", "Event")
   Obj.FromControl("Form1")
   Control("Event1").new1(obj.Value,"MouseDown")
   AddEvent("Event1", NewEvent, "CommonEventSub")   
End Sub


Sub CommonEventSub
   Msgbox(Sender)
End Sub

 

E

ExcludeReality

Active Member

Licensed User

• Dec 30, 2009

• #7

Thanks Agraham.
I think that solved my problem