حرکت بین رکوردهای بانک در DBGrid با حرکت نوار لغزنده DBGrid

:40:من در یک فرم یک جدول DBGrid قرار دادم که این جدول شامل چندین رکورد است .

یک منوی جستجو هم برای جدول قرار دادم که کاربر با استفاده از این منو داده ها رو جستجو می کنه .

وقتی که داده ها در جدول قرار دارند و جدول هم دارای Scrol است حالا اگر کاربر بخواهد از اول جدول تا آخر جدول را ببینه باید با کلید های جهتی و یا کلید Page Up و Page Down و یا Home و End بین داده ها حرکت کند

در صورتی که DBGrid دارای نوارلغزنده Scroll می باشد وقتی که کاربر بخواهد از این نوار (Scroll) استفاده کند نتیجه ای نمی گیرد یعنی وقتی که کاربر Scrol مربوط به DBGrid را کلیک کرده و پایین و بالا می کشد نمی تونه بین رکورد ها جابه جا بشه صفحه ثابت است و وقتی که کاربر کلیک موس را رها کرد رکورد های مربوط به آن قسمت نمایش داده می شود

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:41: برای حل این مشکل چه راه حلی وجود دارد ؟ :41: ( :40: با درک کردن و گشید نوار لغزنده مربوط به DBGrid بین رکورد ها جابه جا بشیم :40:)

سلام
يك كنترل applicationEvents روي فرم بگذاريد و كد زير رو بنويسيد:

کد:

---

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  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;

---

داداش فرهاد :10: اگه دقت کرده باشید من گفتم که می خوام با درک کردن نوار لغزنده مربوط به DBGrid بین رکورد ها جابه جا شم :11:

شما MouseWheel را برای من گفتید که مربوط به سوال من نمی باشد :13:

چطوری با درک کردن نوارلغزنده Scroll مربوط به DBGrid می توانید بین رکورد ها جا به جا شویم

آقا عذر خواهي فراوان. قسمت اول سوال شما رو خوندم و scroll مربوط به grid رو با scroll موس قاطي كردم.
اين هم راه حل مشكل شما:
در قسمت private:

کد:

---

  OldGridProc: TWndMethod;
  procedure GridWindowProc(var Message: TMessage);

---

کد:

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldGridProc        := DBGrid1.WindowProc;
  DBGrid1.WindowProc := GridWindowProc;
end;

procedure TForm1.GridWindowProc(var Message: TMessage);
var
  Pos: SmallInt;
begin
  OldGridProc(Message);
  if Message.Msg = WM_VSCROLL then
  begin
    Pos          := Message.WParamHi;
    Table1.RecNo := Pos;
  end;
end;

---

موفق باشيد