procedure WMMouseActivate(var Msg: TWMMouseActivate);message WM_MOUSEACTIVATE;
procedure TForm1.WMMouseActivate(var Msg: TWMMouseActivate);
msg.Result := MA_NOACTIVATE;
if (Wnd <> GetForegroundWindow)and(Wnd <> Handle)and(Wnd <> 0) then
The example shows how to create and use a form that acts as a virtual numeric keypad. The form is topmost and will not take the focus when clicked upon. Clicks on its "buttons" will create key events that go to whatever control in the active window that has the focus.
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 6 misafir