Вверх ↑
Ответов: 5227
Рейтинг: 587
#1: 2009-11-11 15:40:20 ЛС | профиль | цитата
nesco, в принципе так и делаю, но получаю такое
C:\Program Files\HiAsm v4 build 175\Elements\delphi\code\hiInlineCode_8BEB294.pas(63) Error: Undeclared identifier: 'onPath'
C:\Program Files\HiAsm v4 build 175\Elements\delphi\code\hiInlineCode_8BEB294.pas(63) Error: There is no overloaded version of '_hi_OnEvent' that can be called with these arguments


из этого кода

#pas

 type
 
  THiAsmClass = class(TDebug)
  private

  public
     ...    
     ...
     ...
     onPath:THI_Event;
  end;
  
 implementation

...

function ChildCallback(HWnd: THandle; Msg: Cardinal;   
  WParam, LParam: Integer): Cardinal; Stdcall;
  var path: PChar;
begin  
  case Msg of  
//  Одиночный клик левой кн. мыши 
    WM_LBUTTONDOWN:   
      begin  
        MessageBeep(0);
      end;
      
// Двойной  клик левой кн. мыши  
    WM_LBUTTONDBLCLK:
      begin
          path := PathExplorerTree();
          _hi_onEvent(onPath, path);
      end;
    WM_KEYDOWN:
      begin
        //--
      end;                    
  end;   

// Не забываем вызвать оригинальную оконную процедуру   
  Result := CallWindowProc(Pointer(GetWindowLong(HWnd, GWL_USERDATA)),   
    Hwnd, Msg, WParam, LParam);   
end;

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0