Hallo WaSa,
ich habe mir folgendes "zusammengestrickt". Damit klappt es jetzt.
Gruß fotohase
procedure TFmServer.ListView1ColumnRightClick(Sender: TObject;
Column: TListColumn; Point: TPoint);
Var
i,b,IndexC:Integer;
begin
IndexC:=Column.Index;
if ListView1.TopItem.Left < -2 then begin
// Liste wurde verschoben
IndexC:=-1;
b:=Abs(ListView1.TopItem.Left+2)+Point.X;
for i:=0 to Pred(ListView1.Columns.Count) do begin
Inc(IndexC);
Dec(b,ListView1.Columns[i].Width);
if b<=0 then
Break;
end;
end;
// IndexC enthält jetzt den richtigen Spaltenindex
end;