关于鼠标滚轮问题。代码已经有了,求优化一些。
procedure TMain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
If (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) Then
Begin
if Msg.wParam > 0 Then
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_UP, 0)
Else
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
End;
end;
假设有50个DBGrid1,我不想复制50次。怎么优化一下。