Как обрабатывать нажатие на кнопке?

[AidarBik]

Как можно обработать щелчок (да и другие события) на кнопке?
Кнопка создается на WinAPI

[B_N]

Если "Кнопка создается на WinAPI", значит у нее есть оконная процедура, в которой нужно обработать нужные события. В чем вопрос-то?

[AidarBik]

Button:=CreateWindowEx(0, 'Button', 'Добавить', WS_CHILD or WS_VISIBLE, 184, 24, 81, 25, pWnd, 0, HInstance, nil);

В какой процедуре это надо обрабатывать?
Пытался в оконной процедуре формы (pWnd), но при нажатии на кнопку ничего не происходит.

[B_N]

Надо объявить функцию по прототипу
LRESULT BtnWndProc(HWND hWnd, UINT Msg, WPARAM wParam,LPARAM lParam); (в паскале это будет что-то вроде function BtnWndProc(hWnd : HWND; Msg, wParam, lParam : dword) : dword; ) Через GetWindowLong(hWnd, GWL_WNDPROC) взять у кнопки адрес старой оконной процедуры, запомнить его, через SetWindowLong(hWnd, GWL_WNDPROC, <Адрес новой процедуры>); установить новый адрес (не забывая в функции BtnWndProc после необходимых действий возвращать управление старой процедуре (адрес которой мы запомнили).

Само собой это всё БЕЗ классов. Под hWnd понимается хэндл самой кнопки. Справитесь?

[AidarBik]

Я сделал по-другому, кажется работает:

while GetMessage(pMsg, 0, 0, 0) do
begin
if (pMsg.hwnd = Button) and (pMsg.message = WM_LBUTTONUP) then
begin
//Нажал на кнопку
end;
TranslateMessage(pMsg);
DispatchMessage(pMsg);
end;

Но появился еще один вопрос. Как сделать кнопку недоступной (WinAPI)?

[B_N]

1. В каком месте стоит этот цикл?
2. Что подразумевается под "недоступной"? Если disabled, то EnableWindow(hWnd, 0);

[AidarBik]

Цикл стоит после создания всех компонентов. После цикла ничего нет.
Спасибо.
P.S. А где можно взять справочник по WinAPI?

[B_N]

1. "После создания всех компонентов" это где??? не в OnCreate, надеюсь?
2. Всё, что будет отправлено из текущего потока через SendMessage в этот цикл не попадет.
3. Справочник по WinApi можно взять, как минимум, здесь: http://www.google.com/search?hl=en&q...=Google+Search
Если траффик позволяет, лучше скачать MSDN http://www.microsoft.com/express/dow...n/Default.aspx - совсем другие пироги

[rpy3uH]

справочные файлы из MS SDK также устанавливаются вместе с Delphi 7.

[AidarBik]

OnCreate? Проект то на WinAPI.

begin
//Создаю окно и компоненты
while GetMessage(pMsg, 0, 0, 0) do
begin
if (pMsg.hwnd = Button) and (pMsg.message = WM_LBUTTONUP) then
begin
//Нажал на кнопку
end;
TranslateMessage(pMsg);
DispatchMessage(pMsg);
end;
end.

Спасибо за ссылки.