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

[uligerhardt]

Probier mal, Key auf 0 zu setzen.

HTH,
Uli.

[Centrii]

*auf dem Schlauch steh* :?:

was meinst du mit Key auf 0 zu setzen ??

[uligerhardt]

Zitat:

Zitat von Centrii

*auf dem Schlauch steh* :?:

was meinst du mit Key auf 0 zu setzen ??

Delphi-Quellcode:

begin
  //mach was
  Key := 0;
end;

:mrgreen:

[uligerhardt]

Zitat:

Zitat von Centrii

Delphi-Quellcode:

  
    else if ((ssctrl in Shift) and (Key = $6B)) then begin  //das ist die Abfrage fuer vk_add

Argh - Beißreflex! Hab ich bisher ganz übersehen: Wenn du schon weißt, dass die Konstante VK_ADD heißt, dann benutze dieses Wissen doch auch - siehe hier. :warn:

[Centrii]

leider geht

Delphi-Quellcode:

Key = VK_I //fuer Taste I

nicht, bei mir gehts nur mit z.B. $49

aber danke für den Link :-D

[Centrii]

hab übrigends grad rausgefunden das das Tastenkürzel 'ctrl' & '+'
das gleich verhalten beim Windows Explorer hervorruft...

[uligerhardt]

Zitat:

Zitat von Centrii

leider geht

Delphi-Quellcode:

Key = VK_I //fuer Taste I

nicht, bei mir gehts nur mit z.B. $49

aber danke für den Link :-D

Delphi-Quellcode:

Key = Ord('I')

:mrgreen: