Which object has been "clicked" 1

[Rogy]

I assigned a code to a click event of an object which I create programmaticaly. This object is a picture. There can be up to 6 of this objects.

.
.
.
thisform.AddObject(i_pic,"Image")
    WITH EVALUATE([thisform.]+i_pic)
        .visible = .T.
        .width= 84
        .height= 84
        .stretch= 1
        .top= thisform.k_image.top
        .left= thisform.k_image.left+90
        .Picture = AllTrim(mPath) 
        .name = i_pic
        ENDWITH
BINDEVENT(EVALUATE([thisform.]+i_pic),[Click],thisform,[PictureClick])
.
.
.

How can I determine (in the PictureClick evnet), which object has been clicked? VFP seems to remeber the name, only of last object.
Any ideas?

 

[foxdbs]

THISFORM.ActiveControl

--or--

in control.gotfocus save the object reference or object name into user defined property of the form

--or--

in control.click save the object reference or object name into user defined property of the form (only if you use such parameters of BINDEVENTS, where method of the control run earlier as bind-method)

 

[bborissov]

Check AEVENTS() in HELP

Borislav Borissov

 

[Rogy]

I have tried with THISFORM.ActiveControl and AEVENTS() but still can't get the name of the object (which has been clicked)

 

[Mike Lewis]

Rogy,

THISFORM.ActiveControl gives you an object reference to the object in question. You need to get its Name property:

THISFORM.ActiveControl.Name

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[bborissov]

AEVENTS(laEvents, 0)
IF PEMSTATUS(laEvents[1,1],[Name],5)
   WAIT WINDOW laEvents[1,1].Name
ENDIF

Borislav Borissov

 

[Rogy]

It works!

I've put Borislav's code in the Pictureclick event:

AEVENTS(laEvents, 0)
IF PEMSTATUS(laEvents[1,1],[Name],5)
   obj_name=laEvents[1,1].Name
   thisform.x_textbox1.Value=EVALUATE("thisform."+obj_name+".tag")
   thisform.x_textbox1.Valid   
ENDIF

A star for you!

Thank you all for the help!