alle Eintrage in TListView mit STRG+A makieren

[naujo]

Hallo alle zusammen,

ich möchte unter Delphi 6 mit der Tastenkombination STRG+A alle Einträge in der TListView makieren.

Meine erste Idee war:

Delphi-Quellcode:

procedure TForm1.ListView1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  // Strg+A abfragen
  if (Shift = [ssCtrl]) then
  begin
    if (Key = Ord('a')) or (Key = Ord('A')) then
    begin
      ListView1.SelectAll;
    end;
  end;
end;

Leider funktioniert, dass nicht.

Dann meine zweite Idee:

Delphi-Quellcode:

procedure TForm1.ListView1LocalKeyPress(Sender: TObject; var Key: Char);
begin
  if (KeyboardStateToShiftState = [ssCtrl]) then
  begin
    if LowerCase(Key) = 'a' then
    begin
      ListView1.SelectAll;
    end;
  end;
end;

Meine dritte Idee war dann halt:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // Strg+A abfragen
  if (Shift = [ssCtrl]) then
  begin
    if (Key = Ord('a')) or (Key = Ord('A')) then
    begin
      ListView1.SelectAll;
    end;
  end;
end;

Form1.KeyPreView := True ist natürlich gesetzt.

Vielleicht habt ihr noch eine Idee.

MfG

naujo