Rechtsklick abschießen

[DGL-luke]

EDIT:

bin ich jetzt ganz blöd??????

Delphi-Quellcode:

   {...}
    About1: TMenuItem;
    N2: TMenuItem;
    Umformungen1: TMenuItem;
    procedure LVListMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

    procedure PMListPopup(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure EUnknownToKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
   procedure WndProc(Msg:TMessage);override; //hier deklaration
   procedure WMDropFiles(var AMsg:TWMDROPFILES); Message WM_DROPFILES;

  end;

Delphi-Quellcode:

procedure TForm1.WndProc(Msg:TMessage); //hier implenmentation
var p:TPoint;
    inLV:boolean;
begin
inherited;
p:=screentoclient(mouse.cursorpos);
inLV:= ( (p.X >= LVList.left) and (p.X <= LVList.left+LVList.width) and (p.Y >= LVList.top) and (p.Y <= LVList.top + LVList.Height) );

if ( msg.msg = WM_RBUTTONDOWN ) and inLV then
begin
  msg.Result:=1;
end;
end;

das muss doch gehen??????

er sagt mir aber

Zitat:

[Fehler] U_dragdrop_main.pas(50): E2037 Deklaration von 'WndProc' unterscheidet sich von vorheriger Deklaration