Foros Club Delphi - Mouse butons back and forward (4 y 5)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Mouse butons back and forward (4 y 5) (https://www.clubdelphi.com/foros/showthread.php?t=57437)

Mouse butons back and forward (4 y 5)

Alguien sabe como trabajar con el clik del los botones 4 y 5 del raton (botones de navegacion) con delphi7, gracias de antemano

pues me he quedao igual

me refiero que no se como trabajar con lo que has puesto si pudieses poner un corto ejemplo te lo agradeceria mil

Aquí el ejemplo "corto" :D

Código Delphi [-]...

  private
   procedure WMXButtonDown(var Message: TWMMouse); message $020B {WM_XBUTTONDOWN};
   procedure WMXButtonDown(var Message: TWMMouse); message $020C {WM_XBUTTONUP};
   procedure WMXButtonDblClk(var Message: TWMMouse); message $020D {WM_XBUTTONDBLCLK};
  public

...

Saludos "comiditos"

pues sigo sin entender

eso esta en visual basic yo trabajo con pascal yo lo que quiero es que poner algo en el los eventos onclick de los botones 4 y 5 si eres tan amable ... gracias

Vaya, no me di cuenta que mi ejemplo no era claro :rolleyes:

En el ultimo post de éste hilo hay un ejemplo, no me pidas que traduzca sus comentarios porque no hablo Aleman. Talvez en ambos casos te pueda ayudar ésta pagina!

Saludos

Tras darle muchas vueltas

he conseguido esto:

Código Delphi [-]interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,psapi,
  Dialogs;

const
  WM_XBUTTONDOWN=$020B;
  WM_XBUTTONDBLCLK=$020D;

type
  TForm1 = class(TForm)
  private
    procedure WMXButtonDown(var Message: TWMMouse); message WM_XBUTTONDOWN;
   procedure WMXButtonDblClk(var Message: TWMMouse); message WM_XBUTTONDBLCLK;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMXButtonDown(var Message: TWMMouse);
begin
 showmessage('Down');
end;
procedure TForm1.WMXButtonDblClk(var Message: TWMMouse);
begin
end;

pero lo que no se ahora es diferenciar entre el xbutton1 y xbutton2 me podrias hechar un cable? gracias de antemano:(

Código Delphi [-]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
 WM_XBUTTONDOWN   = $020B;
 WM_XBUTTONUP     = $020C;
 WM_XBUTTONDBLCLK = $020D;

 MK_XBUTTON1 = $20;
 MK_XBUTTON2 = $40;

type
  TForm1 = class(TForm)
  private
   procedure WMXButtonDown(var Msg: TWMMouse); message WM_XBUTTONDOWN;
   procedure WMXButtonUp(var Msg: TWMMouse); message WM_XBUTTONUP;
   procedure WMXButtonDblClk(var Msg: TWMMouse); message WM_XBUTTONDBLCLK;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMXButtonDown(var Msg: TWMMouse);
begin
 if Lo(Msg.Keys) = MK_XBUTTON1 then
  MessageBox(0, 'WM_XBUTTONDOWN + MK_XBUTTON1', nil, 0)
 else if Lo(Msg.Keys) = MK_XBUTTON2 then
  MessageBox(0, 'WM_XBUTTONDOWN + MK_XBUTTON2', nil, 0);
end;

procedure TForm1.WMXButtonUp(var Msg: TWMMouse);
begin
 if Lo(Msg.Keys) = MK_XBUTTON1 then
  MessageBox(0, 'WM_XBUTTONUP + MK_XBUTTON1', nil, 0)
 else if Lo(Msg.Keys) = MK_XBUTTON2 then
  MessageBox(0, 'WM_XBUTTONUP + MK_XBUTTON2', nil, 0);
end;

procedure TForm1.WMXButtonDblClk(var Msg: TWMMouse);
begin
 if Lo(Msg.Keys) = MK_XBUTTON1 then
  MessageBox(0, 'WM_XBUTTONDBLCLK + MK_XBUTTON1', nil, 0)
 else if Lo(Msg.Keys) = MK_XBUTTON2 then
  MessageBox(0, 'WM_XBUTTONDBLCLK + MK_XBUTTON2', nil, 0);
end;

end.