[ Coder81 @ 09.04.2008. 18:30 ] @
Trebao bih da povezem MouseHook.dll na aplikaciju i da mi se cim podignem aplikaciju aktivira taj dll fajl. Moram da iskljucim scroll na misu. Ja sam to ranije radio ali u Access-u. Aplikacija je pisana u Delphi-ju. Ako moze neko da mi da makar neki primer, pa cu ja da ga preradim ili tako nesto.
U pitanju je jedna poslovna aplikacija i ta funkcija u programu mi je veoma vazna.

Hvala svima unapred !

[ savkic @ 09.04.2008. 21:28 ] @
> Trebao bih da povezem MouseHook.dll na aplikaciju i da mi se cim podignem aplikaciju aktivira taj dll fajl. Moram da iskljucim scroll na misu. Ja sam to
> ranije radio ali u Access-u. Aplikacija je pisana u Delphi-ju. Ako moze neko da mi da makar neki primer, pa cu ja da ga preradim ili tako nesto.
> U pitanju je jedna poslovna aplikacija i ta funkcija u programu mi je veoma vazna.

Najpre moraš razjasniti šta je to MouseHook.dll, koje funkcije exportuje i kako se koriste. Da li ti želiš da disejbluješ scroll u čitavom windowsu ili samo u tvom programu, ako je samo tvoj program onda ti ne treba eksterni program.
[ Coder81 @ 10.04.2008. 15:07 ] @
OK, verovatno si u pravu. Ja sam nekada radio u Access-u i uspeo sam da povezem MouseHook.dll sa aplikacijom. Cim podignem aplikaciju taj dll onemoguci scroll na misu i korisnik koji radi u mom programu ne moze da skroluje. Cim izadje iz programa, normalno moze da skroluje. To je tamo vrlo lepo radilo. A ako moze da se to resi i bez dll-a onda jos bolje.
Znaci bicu precizan sta mi tacno treba. Ja u svojim programima koje naravno pisem u Delphi-ju poseduje grid-ove. Korisnik kada kursor(fokus) postavi na grid ne sme da skroluje po gridu, sme samo da ili klikce po gridu, vuce klizac ili da to radi preko tastature(strelicama gore - dole). Eto to je sve. Nadam se da sam bio precizan.
[ savkic @ 10.04.2008. 20:32 ] @
> Znaci bicu precizan sta mi tacno treba. Ja u svojim programima koje naravno pisem u Delphi-ju poseduje grid-ove. Korisnik kada kursor(fokus)
> postavi na grid ne sme da skroluje po gridu, sme samo da ili klikce po gridu, vuce klizac ili da to radi preko tastature(strelicama gore - dole).

Samo treba da se "pojedu" WM_MOUSEWHEEL poruke koje dobija tvoja aplikacija. U glavnoj formi napravi sledeće:

Code:

procedure OnMsg(var Msg: TMsg; var Handled: Boolean);  // deklaracija metode

procedure TForm1.OnMsg(var Msg: TMsg; var Handled: Boolean); // implementacija
begin
  Handled := Msg.message = WM_MOUSEWHEEL;
end;

// I u OnCreate eventu forme stavi
  Application.OnMessage := OnMsg;

[ Coder81 @ 12.04.2008. 11:02 ] @
Hvala savkic !
Probacu code koji si mi dao da vidim da li je to to. Kada je tako nesto uopsteno ja najvise volim da generalizujem code.
Hvala u svakom slucaju !
[ Coder81 @ 16.04.2008. 10:32 ] @
Sve radi OK. Hvala !