Højreklik i ListBox

ork ja :

Prøv den her :

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var
  Pos :  TPoint;
begin
  Pos.x := x;
  Pos.y := y;
  ListBox1.ItemIndex := ListBox1.ItemAtPos(Pos, true);
end;


Jens B

Virker ikke ?

JEg ved ikke hvad du har lavert galt fordi jeg testede inden jeg postede ...

Jens B

Takker :]