Listview und Tastenkombination ctrl+vk_add

[Centrii]

Hallo,

hab da ein kleines Problem mit der TListView.
Wenn ich ein Item in der Listview ausgewählt habe und dann die TastenKombination "ctrl + vk_add" drücke,
wir zwar mein hinterlegter Code ausgeführt, aber leider auch noch eine Funktion der Listview. Alle Spalten werden
automatisch schmaler gemacht. Kann ich das irgendwie unterbinden, oder kann ich irgendwo rausfinden was schon belegt ist?

meine Code:

Delphi-Quellcode:

  

procedure Tfmain.ListViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var li   : TListItem;
begin
  if Listview.Items.Count > 0 then begin
    li := Listview.ItemFocused;
    if ((ssctrl in Shift) and (Key = $31)) then begin
      if pos(uppercase('X'),uppercase(li.SubItems[0])) <> 0 then begin
        //mach was
      end;
    end
    else if ((ssctrl in Shift) and (Key = $30)) then begin
      if pos(uppercase('X'),uppercase(li.SubItems[0])) <> 0 then begin
        //mach was
      end;
    end
    else if ((ssctrl in Shift) and (Key = $6B)) then begin  //das ist die Abfrage fuer vk_add
         //mach was        
    end
    else if ((ssctrl in Shift) and (Key = $6D)) then begin
        //mach was
    end;
  end;
end;

Hat jemand eine Idee?

Gruß Ruben