فرض کنيم فرم ما حاوی يک (TOpenDialog) با نام OpenDialog1 است:

 procedure TForm1.OpenDialog1Show(Sender: TObject) ;
begin
    SetDlgItemText (GetParent (OpenDialog1.Handle),
                   IDOK, PChar ('&بازکردن)) ;
      SetDlgItemText (GetParent (OpenDialog1.Handle),
                   IDCANCEL, PChar ('&انصراف')) ;
end;

حتما شما وقتي كه از يك سري كنترلهاي دلفي استفاده مي كنيد متوجه اين مشكل شديد كه Wheel موس درست كار نميكنه (مخصوصا در DBGrid). حال با اين روش كه ميگم مي تونيد اين مشكل رو در برنامه تون حل كنيد. اول يك كنترل ApplicationEvents روي فرمتون بندازيد و بعد هم كد زير رو در برنامه اضافه كنيد:

procedure Application1.OnMessage
   (var Msg: TMsg; var Handled: Boolean) ;
var
   i: SmallInt;
begin
   if Msg.message = WM_MOUSEWHEEL then
   begin
     Msg.message := WM_KEYDOWN;
     Msg.lParam := 0;
     i := HiWord(Msg.wParam) ;
     if i > 0 then
       Msg.wParam := VK_UP
     else
       Msg.wParam := VK_DOWN;

     Handled := False;
   end;
end;