Fórum BOTAO DIREITO #142355

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