Adding Event Code Programmatically

[LouisC4]

Hello,

In my Form I have created a Grid with the following code:

ThisForm.AddObject('Grid1','Grid')
ThisForm.Grid1.Top = 53
ThisForm.Grid1.Left = 20
ThisForm.Grid1.Height = 344
ThisForm.Grid1.Width = 735
ThisForm.Grid1.RecordSource = "GLr1c"
ThisForm.Grid1.Visible = .T.

Now that my grid is working, I would like to programmatically add a click event on [ThisForm.Grid.column2.text1], how can I do this? Is it possible?

Louis

 

[Mike Gagnon]

LouisC4

faq184-2164

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[LouisC4]

Hi Mike,

Thanks for the reply. I try doing what FQ184-2164 suggested to do but when I ran my code it says that:

"Methods and events cannot contain nested procedures or class defenitions"

What to do?

Louis

 

[Mike Gagnon]

LouisC4

The problem is, you are trying to add a method to an existing grid, which you cannot do. You have to DEFINE your grid in your main program (somewhere near the bottom is fine) and in the Init of your form add the predefined grid to your form, by using somethign like this.
In your main program:

DEFINE CLASS grid1 as Grid 
    COLUMNCOUNT = 3
    VISIBLE = .T.
    recordsource = "mycursor"
ENDDEFINE
define class _myheader as header
    procedure click
        wait window TRANSFORM(this.parent.name)+" was clicked" nowait
    endproc
enddefine

In the init of your form.

WITH this
 .addobject("grid1","grid1")
ENDWITH

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Mike Gagnon]

LouisC4

Sorry the init of the form should read:

WITH this
 .addobject("grid1","grid1")
ENDWITH
WITH this.grid1
for each oColumn in .columns
    oColumn.addobject("myheader1","_myheader")
endfor
ENDWITH

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[ChrisRChamberlain]

LouisC4

faq184-928 How to assign code to event in run-time?

may help

FAQ184-2483 - the answer to getting answered.​

Chris

http://www.pdfcommander.co.uk