Add(InlineCode,4748460,539,189)
{
 DataPoints=#9:dtPHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,messages,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|23:    FOldMes:TOnMessage;|61:    function _onMess(var Msg:TMsg; var Rslt:Integer):Boolean;|19:    procedure Work;|9:   public|22:    onPaint:THI_Event;|24:    dtPHandle:THI_Event;|23:    constructor Create;|5: end;|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|18: inherited Create;|15: InitAdd(Work);|4:end;|0:|27:procedure THiAsmClass.Work;|15:var c:PControl;|5:begin|42: c := PControl(ToIntegerEvent(dtPHandle));|30: if not assigned(c) then exit;|25: FOldMes :=  c.OnMessage;|24: c.OnMessage := _onMess;|4:end;|0:|29:function THiAsmClass._onMess;|5:begin|20: case Msg.message of|19:  WM_KEYDOWN: begin|21:   Case Msg.WParam of|70:    VK_RETURN,VK_F2: exit; //Чтобы по Enter и F2 событие не выдавалось|6:   end|5:  end|5: end;|43: Result := _hi_OnMessage(FOldMes,Msg,Rslt);|4:end;|0:|4:end.|
}

         WM_LBUTTONDOWN: begin
            Pt:= TMouseDownPt(Msg.lParam);
            HTI.pt.x := Pt.X;
            HTI.pt.y := Pt.Y;
            Sender.Perform( LVM_SUBITEMHITTEST, 0, Integer( @HTI ) );
            if HTI.iItem <> -1 then
            begin
              NewLine := HTI.iItem;
              NewCurIdx := HTI.iSubItem;
            end;               
            EscCell(NewLine, fControl);
         end;