VPF::приложение на апи - Форум программистов

Тьма

Дата 30.1.2006, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: нет
Всего: 4

значить я попробовало написат приложиние на апи чтоб просто сождавал форму. получилось.
попробовал реагировать на нажатие мыши. получилось.
попробовал создать кнопку. получилось smile

попробовал реагировать на нажатие кнопки мышкой. ОЙ НЕПОЛУЧИЛОСЬ. и я не могу найти баг

вот я ее создаю

Код


 ZeroMemory(@btnclass, sizeof(btnclass));
 with btnclass do
      begin
        lpfnWndProc := @ButtonProc;
        hInstance := hInstance;
        lpszClassName:= 'Button';
        style := WS_CHILD or CS_NOCLOSE or cs_hRedraw or cs_vRedraw;// or EDGE_RAISED;
        hbrBackground:= 1;
        lpszMenuName := NIL;
        cbWndExtra := 0;
        cbClsExtra := 0;
      end;
 RegisterClass(btnclass);
 Button := CreateWindow( 'BUTTON', 'test', WS_CHILD + WS_VISIBLE, 0, 0, 100, 40, handleWnd, 0,  hInstance, @ButtonProc);

а вот процедура

Код


function ButtonProc(Window: HWnd; AMessage, WParam,
LParam: Longint): Longint; stdcall;
begin
 ButtonProc:= DefWindowProc(Window, AMessage, WParam, LParam);
 case AMessage of
 WM_LBUTTONDOWN: MessageBox( 0, 'Вы нажали кнопку!', 'Информация',MB_OK or MB_ICONINFORMATION);
 end;
end;

помогите, кто может

Это сообщение отредактировал(а) Girder - 30.1.2006, 15:56

--------------------

Vir magni ingenii

_hunter

Дата 30.1.2006, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

ты сначала сам сообщение должен обработать и только потом ( по желанию ) дать его обработать окнам. а у тебя все наоборот...
эту:
ButtonProc:= DefWindowProc(Window, AMessage, WParam, LParam);
строчку поставь после Case

--------------------

Tempora mutantur, et nos mutamur in illis...

Тьма

Дата 30.1.2006, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: нет
Всего: 4

охотник, я попробовал и не получилось
меня немного смущает что в процедуре обработки событий формы у меня сначала

Код


WindowProc:= DefWindowProc(Window, AMessage, WParam, LParam);

а потом обрабатываю и все работает

и еще
btnclass.style := WS_CHILD or CS_NOCLOSE or cs_hRedraw or cs_vRedraw;
что здесь надо корректно писать?

--------------------

Vir magni ingenii

Alexeis

Дата 31.1.2006, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

В таком случае удобно посмотреть код VCl - те стили которые использует TButton.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »