program Test;

uses
 KOL;

 {$I KOLDEF.inc}

procedure ColumnClick(Dummy: Pointer; Sender: PControl; Idx: Integer);
begin
//if Sender.RightClick then
  MsgOK(Sender.LVColText[Idx]);
end;

procedure Click1(Dummy: Pointer; Sender: PControl);
begin
if Sender.RightClick then
  MsgOK('Click right')
else
  MsgOK('Click left');
end;

begin
Applet := NewForm(nil, 'Test');
with NewListView(Applet, lvsDetail, [], nil, nil, nil)^ do
begin
  LVColAdd('Col1', taLeft, 80);
  LVColAdd('Col2', taLeft, 80);
  LVColAdd('Col3', taLeft, 80);
  OnColumnClick := TOnLVColumnClick(MakeMethod(nil, @ColumnClick));
  OnClick := TOnEvent(MakeMethod(nil, @Click1));
end;
Run(Applet);
end.

function WndProcCommonNotify( Self_: PControl; var Msg: TMsg; var Rslt: Integer ): Boolean;
var NMhdr: PNMHdr;
begin
 Result := False;
 if Msg.message = WM_NOTIFY then
 begin
   NMHdr := Pointer( Msg.lParam );
   case NMHdr.code of
     NM_RCLICK,
     NM_CLICK:  {$IFDEF NIL_EVENTS}
                if assigned( Self_.EV.fOnClick ) then
                {$ENDIF}
                begin
                   {$IFDEF USE_FLAGS}
                       if   NMHdr.code = NM_RCLICK then
                            include( Self_.fFlagsG6, G6_RightClick )
                       else exclude( Self_.fFlagsG6, G6_RightClick );
                   {$ELSE} Self_.fRightClick := NMHdr.code=NM_RCLICK; {$ENDIF}
                   Self_.EV.fOnClick( Self_ );
                end;
     NM_KILLFOCUS: {$IFDEF NIL_EVENTS}
                   if  assigned( Self_.EV.fOnLeave ) then
                   {$ENDIF}
                       Self_.EV.fOnLeave( Self_ );
     NM_RETURN,
     NM_SETFOCUS: {$IFDEF NIL_EVENTS}
                  if  assigned( Self_.EV.fOnEnter ) then
                  {$ENDIF}
                     Self_.EV.fOnEnter( Self_ );
   end;
 end;
end;