Hi,

wenn ich if (ssCtrl in Shift) and (Key = VK_UP) then benutze, wird die gewünschte Aktion bei Strg+Pfeiltaste hoch durchgeführt. Bei Pfeiltaste runter funktioniert das nicht: if (ssCtrl in Shift) and (Key = VK_DOWN) then Woran liegt das ?

Von welcher Komponente reden wir hier?

Ganz vergessen, Listbox.

Hi,

dazu habe ich mal ein Testprojekt mit einer Listbox erstellt, bei mir funktioniert auch if (ssCtrl in Shift) and (Key = VK_DOWN) then

Ist in der Listbox denn überhaupt genug drin für [Strg+Pfeiltaste runter]?

mfg

Es ist genug drinnen....

Der Fehler ist echt übel, liegt scheinbar nicht an meinem Code: Liegt VK_DOWN oben (im Code so gezeigt), wird VK_DOWN ausgeführt, VK_UP funktioniert dafür nicht. Liegt VK_UP weiter oben, wird VK_UP ausgeführt, VK_DOWN dafür nicht. Ich versteh den Fehler nicht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmSettings.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = Ord('N')) then
    mValNeu.Click
  else
  if (ssCtrl in Shift) and (Key = VK_DELETE) then
    mValDel.Click
  else
  if (ssCtrl in Shift) and (ssAlt in Shift) and (Key = Ord('N')) then
    mKatNeu.Click
  else
  if (ssCtrl in Shift) and (Key = VK_DOWN) then
    if ActiveControl = lbKat then
      mKatMoveRunter.Click
  else
  if (ssCtrl in Shift) and (Key = VK_UP) then
    if ActiveControl = lbKat then
      mKatMoveHoch.Click
  else
  if Key = VK_ESCAPE then
    Close;
end;

Moin Nils_13,

Zitat von Nils_13:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmSettings.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = Ord('N')) then
    mValNeu.Click
  else
  if (ssCtrl in Shift) and (Key = VK_DELETE) then
    mValDel.Click
  else
  if (ssCtrl in Shift) and (ssAlt in Shift) and (Key = Ord('N')) then
    mKatNeu.Click
  else
  if (ssCtrl in Shift) and (Key = VK_DOWN) then
    if ActiveControl = lbKat then
      mKatMoveRunter.Click
  else // dieses else gehört zu if ActiveControl = lbKat then
  if (ssCtrl in Shift) and (Key = VK_UP) then
    if ActiveControl = lbKat then
      mKatMoveHoch.Click
  else
  if Key = VK_ESCAPE then
    Close;
end;

füge mal überall zu jedem "then" und "else" jeweils "begin" und "end" ein. Dann sollte es klappen. Siehe Kommentar im zitierten Quellcode.
Und es sieht übersichtlicher aus imho.

Ah, was für ein dummer Fehler. Ich finde es so unübsichtlicher, naja ist ja auch egal, der Compiler interpretiert es so nicht korrekt, werde es wohl so machen müssen. Danke, wäre nie drauf gekommen !

Hallo,

um den Fallen einer geschachtelten IF-Anweisung zu entkommen, kann man auch eine CASE-Anweisung einsetzen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmSettings.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
const
  key_ValNeu = scCtrl or Ord('N');
  key_ValDel = scCtrl or VK_DELETE;
  key_KatNeu = scCtrl or scAlt or Ord('N');
  key_KatMoveRunter = scCtrl or VK_DOWN;
  key_KatMoveHoch = scCtrl or VK_UP;
  key_Close = VK_ESCAPE;
begin
  case {Menus.}ShortCut(Key, Shift) of

    key_ValNeu:
      mValNeu.Click;

    key_ValDel:
      mValDel.Click;

    key_KatNeu:
      mKatNeu.Click;

    key_KatMoveRunter:
      if ActiveControl = lbKat then
        mKatMoveRunter.Click;

    key_KatMoveHoch:
      if ActiveControl = lbKat then
        mKatMoveHoch.Click;

    key_Close:
      Close;
  end;
end;

Gruß Hawkeye