mouse nin scrool tuşunu devre dışı bırakma

[meron06]

sel.al.arkadaşlar.dbgrid üzerindeyken mousenin scrool tuşunu devre dışı bırakmak istiyorum.yani dbgrid üzerine gelince scroolu hareket ettirince dbgridde hiç bir hareket olsun istemiyorum.bunu nasıl yapabilirim.

[conari]

Bu linkte aktif etme üzerinde durmuştuk.
bundan faydalanarak disable de edebilirsin sanırım.

viewtopic.php?t=19008

[mrmarman]

Selam...

@conari'nin cevabına ek olarak, dilediğin DBGrid dışındaki diğer yerlede Scroll tuşunu serbest bırakabilmek için gerekeni yazayım...

Formuna bir tane TApplicationEvents koyacaksın. Bileşen paletinde Additional sayfasında göreceksin. Mavi icon şeklinde.

- OnMessage eventine aşağıdaki kodu yazacaksın. MouseScroll çalışmasını engelleyeceğin DBGrid'in adı örneğin DBGrid1 varsayalım.

Kod: Tümünü seç

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (ActiveControl = DBGrid1)
      AND ( Msg.message = WM_MOUSEWHEEL )
      then Handled := True;
end;

- DBGrid1 dışında Mouse tekerleği normal çalışır, sadece burada çalışmaz...