Mega Code Archive
Dbgrid ve dblookupcomboboxta mousewheel kontrolü
<![CDATA[
{ anasayfanıza applicationevents ekleyin(Additional)
applicationsevents'in events -->> onmessage kısmına aşağıdaki kodu
yazın. Artık mouse tekerleği dbgrid ve dblookupcomboboxta düzgün çalışacaktır.
}
procedure Tfrm_Anasayfa.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
w: Smallint;
c: TWinControl;
b: Boolean;
begin
if Msg.Message <> WM_MOUSEWHEEL then Exit;
c := Screen.ActiveControl;
b := (c is TDBGrid) or (c is TDBLookupComboBox);
if not b then Exit;
Msg.Message := WM_KEYDOWN;
Msg.lParam := 0;
w := HiWord(Msg.wParam);
if w > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
]]>