BOTAO DIREITO
COMO FAÇO PARA SABER O MOUSE DO DOWN E UP DO BOTAO DIREITO DO MOUSE?
DESDE JA, MEUS AGRADECIMENTOS.
DESDE JA, MEUS AGRADECIMENTOS.
Jldmbh
Curtidas 0
Respostas
Cdaraujo
02/03/2003
Veja:
unit Unit1;
interface
uses
Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMRButtonUp(var Message: TWMRButtonUp);
begin
ShowMessage(´Clique do botão Direito´);
inherited;
end;
end.
Atenciosamente,
Daniel Araújo
ICQ:111769805
www.cdinformatica.hpg.com.br
unit Unit1;
interface
uses
Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMRButtonUp(var Message: TWMRButtonUp);
begin
ShowMessage(´Clique do botão Direito´);
inherited;
end;
end.
Atenciosamente,
Daniel Araújo
ICQ:111769805
www.cdinformatica.hpg.com.br
GOSTEI 0