Arsip: Pindah Record Dengan Scroll Mouse

 
user image
more 14 years ago

umarbakri

Dear All, Ane dapat kesulitan lagi nich, mohon infonya dong ! Gimana cara menggunakan scrollmouse untuk melihat record yang ada di DBGrid, Ketika record yang tampil diDBGrid sudah habis dan kita ingin melihat record berikutnya yang tidak muncul diDBGrid. Trim's
user image
more 14 years ago

kaka-delphi

Search dunk .... Atau mau referensi yang lain, coba kesini : http://www.swissdelphicenter.ch/en/showcode.php?id=2142 Gudlak ... ;)
user image
more 14 years ago

umarbakri

Atau mau referensi yang lain, coba kesini : http://www.swissdelphicenter.ch/en/showcode.php?id=2142 Ma kasih kaka-delphi.
user image
more 14 years ago

imunk

pake komponen applicationEvent aja yg ada di komponen palette tab Additional. terus di event OnMessage tuliskan kode berikut:

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;
semoga membantu. gimanapun caranya harus terus maju.
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com