Methode Rechts-Klick bei Panels

[Stefan_w]

Hi leute,
ich versuch gerade MineSweeper nach zu programmieren und dafür müsste ich wissen ob es eine Rechtsklickmethode bei Panels gibt oder wie ich die gegebenenfalls erstelle.

gruß stefan

[Khabarakh]

Einfach über OnMouseDown oder -Up:

Delphi-Quellcode:

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    //...
  end;
end;