Win32 Api

[revaldo666]

Создал программу win api в delphi...
но нужна помощь....
программа должна показывать окно и при нажитии клавиши на клаве или мыши выдавать сообщение какая клавиша была нажата...
вот исходник

Program Api;
uses
  windows,
  messages;

var
window:TWndClassEx;
Mwindow: HWND;
Mmsg: MSG;

// Процедура обработки сообщений
function WindowProc (wnd: HWND; msg: integer; wparam: WPARAM; lparam: LPARAM):LRESULT;STDCALL;
begin
case msg of
WM_Destroy:
begin
PostQuitMessage (0);
Result := 0;
Exit;
end;
else
Result := DefWindowProc(wnd,msg,wparam,lparam);
end;
end;

// Ристрация класса окна
begin
window.cbSize := sizeof (window);
window.style := CS_HREDRAW or CS_VREDRAW;
window.lpfnWndProc := @WindowProc;
window.cbClsExtra := 0;
window.cbWndExtra := 0;
window.hInstance := HInstance;
window.hIcon := LoadIcon (0,IDI_APPLICATION);
window.hCursor := LoadCursor (0,IDC_ARROW);
window.hbrBackground:=Color_BtnFace+12;
window.lpszMenuName := nil;
window.lpszClassName := 'Main_Window';
RegisterClassEx (window);
// Создание окна на основе созданного класса
Mwindow := CreateWindowEx(0,'Main_Window','by_revaldo666', WS_OVERLAPPEDWINDOW,100,100,300,300,0,0,Hinstance,nil);
// Показать созданное окно
SHOWWINDOW (Mwindow,SW_Show);
// Цикл обработки сообщений
while GetMessage (Mmsg,0,0,0) do
begin
TranslateMessage (Mmsg);
DispatchMessage (Mmsg);
end;
end.

подскажите что не так...что пропустил?

[Пепел Феникса]

а собственно где обработка нажатия клавиш то?

[revaldo666]

я просто новичёк...можеш подсказать хотябы как это сделать?

[Пепел Феникса]

обрабатывайте сообщение WM_KEYDOWN/WM_KEYUP(нажатие/отпускание клавиши соответственно) в своей оконной процедуре.(коли взялись за окна это знать должны)

[revaldo666]

та это не я взялся...это задание такое дали))

[revaldo666]

Сообщение от Пепел Феникса

обрабатывайте сообщение WM_KEYDOWN/WM_KEYUP(нажатие/отпускание клавиши соответственно) в своей оконной процедуре.(коли взялись за окна это знать должны)

Можеш плиз на примере показать как это сделать?

[revaldo666]

подскажите плиз ктонибудь как в этой проге применить WM_keyup/keydown.
Сижу уже 2 часа в инете никак разобратся немогу((

[profi]

uses
  windows,
  messages,
  SysUtils;
......................................
function WindowProc (wnd: HWND; msg: integer; wparam: WPARAM; lparam: LPARAM):LRESULT;STDCALL;
begin
case msg of
WM_KEYDOWN:
MessageBox(0, Pchar(IntToStr(wparam)), 'msg', MB_OK);
..................................

[revaldo666]

Спасибо...
А для мышки не подскажеш?

[TGrey[WoLf]]

WM_LBUTTONDOWN
прогугли, получишь остальные.