popup menu erzeugen

[yörsch]

Delphi-Quellcode:

// Selection mit Rechter Maustaste
procedure TTEST_Frame.ListBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var 
 exi   : Boolean;
 row   : integer;
 point : Tpoint;
begin
 if Button =  mbRight then
   begin
     point.X := x;
     point.Y := y;
     row := ListBox1.ItemAtPos(point,exi);
     if exi and (row > -1) then ListBox1.Selected[row] := true;
   end;
end;

Gruß
Jörg