Find out the actual event in timeline view

Hi,

I´m use in the timeline view (or calendar view) a own mask for changes of calendar data.
The use should only have a possibility to change some value.(only the body)
If I dblclick on a event I get the actual event and read all values in a struct.

    Procedure start_edit_event tdEvent ByRef tEvent
            Integer iviewtype
            Integer iHitCode
            Variant vViewEvent
            Variant vEvent
            Handle  hoViewEvent

            Move (NullComObject()) to vViewEvent
            //OLECalendarViewType
            //DayView=0;WorkWeekView=1;WeekView=2;MonthView=3;FullWeekView=4;TimeLineView=5
            Get ComViewType of ghoCj_Calendar to iviewtype      //
            If (iviewtype eq 5) Begin
              Send GetHitCode to ghoCj_Calendar (&vViewEvent) (&iHitCode)
              If (not(IsNullComObject(vViewEvent))) Begin
                 Get Create U_cComCalendarViewEvent to hoViewEvent
                 Set pvComObject of hoViewEvent to vViewEvent
                 Get ComEvent of hoViewEvent to vEvent
                 Send Destroy of hoViewEvent
                 Get Move_Event_Object_Data_To_tdEvent of ghoCj_Calendar  vEvent to tEvent  //read my custom data of the event in a struct
              End
            End 
    End_Procedure

Now I can put the values in the modalpanel.
The user can make the changes here.  With ok the changes should be save in the event.

1. Now I can search in my database for the right record and save the changes. Now I must send refresh to the calendar.

2. or I find a way to find out the actual event (which a´ve choose), change the values there an make a refresh and save the value with CJ)
  
The no.2 will be my favorite, but I found not the right event. Can me someone say which steps I must call to get what I want?

Hi,

normaly I will give you are right, but the user should only have a way to change the body, all other fields will generated from a other programpart