Лександер,
Если просто, то:
Код:
OnClick:=
OnMouseDown:=
OnMouseUp:=
OnMouseMove:=
OnMouseLeave:=
Если через botva2.dll, то:
Код:
procedure BtnSetEvent(h :HWND; EventID :integer; Event :Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
//устанавливает событие для кнопки
//h - хэндл кнопки (результат возвращенный BtnCreate)
//EventID - идентификатор события, заданный константами BtnClickEventID, BtnMouseEnterEventID, BtnMouseLeaveEventID, BtnMouseMoveEventID
//Event - адрес процедуры выполняемой при наступлении указанного события
//пример использования - BtnSetEvent(hBtn, BtnMouseMoveEventID, WrapBtnCallback(@BtnClick,1));
