ALV Grid Click Event Handler

Question

Haw can i handle the single-click mouse event in a ALV Grid class implementation...???
The LEFT_CLICK_RUN and RIGHT_CLICK don't help's me....
Someone can update me...???
Thank's...

Answer 1

hi,
you can just set all the field as hotspot , and implement the event hotspot_click.
check the code below:
pay attention the words in red
REPORT  ZDAVID_ALV1.
CLASS ZCL_EVENT_RECEIVER DEFINITION DEFERRED." Declear a custom class
tables zemployee.
data: ls_fcat type lvc_s_fcat,
      li_fcat type lvc_t_fcat,
      ls_layo type lvc_s_layo,
      ls_color type lvc_s_scol,
      LO_EVENT TYPE REF TO ZCL_EVENT_RECEIVER.
data: container type ref to cl_gui_custom_container,
      grid type ref to cl_gui_alv_grid.
types: begin of ty_emp,
  emp_x type c,
  zemp_id type zemp_id,
  zemp_name type zemp_name,
  zemp_salary type zemp_salary,
  zemp_dpart type zemp_dpart,
  rowcolor(4) type c,
  cellcolor type lvc_t_scol,
  end of ty_emp.
data: emp type table of ty_emp,
      wa_emp type ty_emp,
      wcellcolor type lvc_s_scol.
call screen 9000.
CLASS ZCL_EVENT_RECEIVER DEFINITION." class definition
  PUBLIC SECTION.
    methods:
      handle_single_click
         for event hotspot_click of cl_gui_alv_grid
           importing
             e_row_id es_row_no e_column_id.
  PRIVATE SECTION.
ENDCLASS.                    "LCL_EVENT_RECEIVER DEFINITION
*   LCL_EVENT_RECEIVER (DEFINITION)
*  ===============================================================
*   LOCAL CLASSES: IMPLEMENTATION
*  ===============================================================
*   CLASS LCL_EVENT_RECEIVER (IMPLEMENTATION)
*   IN THIS EXAMPLE, ONLY EVENT DOUBLE_CLICK IS CAUGHT
CLASS ZCL_EVENT_RECEIVER IMPLEMENTATION." implementation
method handle_single_click.
     message e_column_id-fieldname type 'I'.
   endmethod.
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION
form sub_get_data.
  select * from zemployee into corresponding fields of wa_emp.
    wa_emp-emp_x = 'X'.
    if wa_emp-zemp_id = '171184'.
"        wa_emp-rowcolor = 'C610'.
       wcellcolor-fname = 'ZEMP_ID'.
       wcellcolor-color-col = '7'.
       wcellcolor-color-int = '1'.
       append wcellcolor to wa_emp-cellcolor.
      ENDIF.
    append wa_emp to emp.
    CLEAR WA_EMP. clear wcellcolor.
    endselect.
  endform.
form sub_create_obj.
  if container is initial.
    create object container
     exporting
       container_name = 'MYCONT'.
   endif.
   if grid is initial.
     create object grid
      exporting
        i_parent = container.
    endif.
  endform.
form sub_call_alv.
    call method grid->set_table_for_first_display
    exporting
      is_layout                     = ls_layo
    changing
      it_outtab                     = emp
      it_fieldcatalog               = li_fcat
      "it_sort                       = i_sort2
    exceptions
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      others                        = 4.
    if sy-subrc <> 0.
      endif.
    create object lo_event.
    set handler lo_event->handle_single_click for grid." set handler
  endform.
form sub_fcat.
  clear ls_fcat.
  ls_fcat-fieldname = 'EMP_X'.
  ls_fcat-coltext = 'Check'.
  ls_fcat-checkbox = 'X'.
  ls_fcat-edit = 'X'.
  ls_fcat-hotspot = 'X'." hotspot
  append ls_fcat to li_fcat.
  clear ls_fcat.
  ls_fcat-fieldname = 'ZEMP_ID'.
  ls_fcat-coltext = 'ID'.
  append ls_fcat to li_fcat.
  clear ls_fcat.
  ls_fcat-fieldname = 'ZEMP_NAME'.
  ls_fcat-coltext = 'Name'.
  append ls_fcat to li_fcat.
  clear ls_fcat.
  ls_fcat-fieldname = 'ZEMP_SALARY'.
  ls_fcat-coltext = 'Salary'.
  ls_fcat-do_sum = 'X'.
  append ls_fcat to li_fcat.
  clear ls_fcat.
  ls_fcat-fieldname = 'ZEMP_DPART'.
  ls_fcat-coltext = 'Department'.
  ls_fcat-drdn_hndl = '1'.
  ls_fcat-edit = 'X'.
  append ls_fcat to li_fcat.
  clear ls_fcat.
  endform.
form sub_layout.
  ls_layo-zebra = 'X'.
  ls_layo-INFO_FNAME = 'ROWCOLOR'.
  endform.
module pbo output.
   perform sub_get_data.
   perform sub_fcat.
   perform sub_layout.
   perform sub_create_obj.
   perform sub_drop.
   perform sub_call_alv.
  endmodule.
module pai input.
  data: ok_code type sy-ucomm.
  case ok_code.
    when 'SHOW'.
      MESSAGE 'D' TYPE 'I'.
    WHEN 'EXIT'.
      leave program.
    WHEN OTHERS.
      ENDCASE.
  clear ok_code.
  endmodule.
form sub_drop.
  data: wa_drop type lvc_s_drop,
        drop type lvc_t_drop.
  wa_drop-handle = '1'.
  wa_drop-value = 'Dev'.
  append wa_drop to drop.
  clear wa_drop.
  wa_drop-handle = '1'.
  wa_drop-value = 'Testing'.
  append wa_drop to drop.
  clear wa_drop.
  wa_drop-handle = '1'.
  wa_drop-value = 'Admin'.
  append wa_drop to drop.
  clear wa_drop.
  wa_drop-handle = '1'.
  wa_drop-value = 'NSS'.
  append wa_drop to drop.
  clear wa_drop.
  wa_drop-handle = '1'.
  wa_drop-value = 'Finance'.
  append wa_drop to drop.
  clear wa_drop.
  call method grid->set_drop_down_table
    EXPORTING
      it_drop_down = drop.
  endform.
*&      Module  set_gui  OUTPUT
*       text
MODULE set_gui OUTPUT.
  set pf-status 'PF_GUI'.
ENDMODULE.                 " set_gui  OUTPUT