Funktion über Shortcut => Endlosschleife

[Christian Seehase]

Moin Zusammen,

im Zusammenhang mit meinem Document Launcher bin ich auf ein Phänomen gestossen, dass ich mir im Moment nicht so recht zu erklären vermag.

Eines der Untermenüs des Hauptmenüs enthält die Laufwerke des Rechners, damit sie auswählen kann, sowie noch ein paar weitere Menüpunkte.

Einer davon soll die Laufwerksliste aktualisieren.
Wählt man nun diesen Menüpunkt über Hauptmenü\Untermenü\Aktualisieren an, funktioniert alles, nimmt man hingegen den Shortcut wird die Routine immer wieder aufgerufen. Man landet in einer Endlosschleife.

Wichtig:
Der Menüpunkt Aktualisieren baut das gesamte Untermenü neu auf. Es wird immer vollständig dynamisch erzeugt.

Ich habe auch schon verschiedene Tastenkombinationen als Shortcut ausprobiert.

Eine kleine Demo bei dem der Fehler auch auftritt (ein Formular, ein TMemo, ein TMainMenu mit einem Hauptmenüpunkt miAutoScan).

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    miAutoscan: TMenuItem;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure CreateAutoScanMenu;
    procedure Aktualisieren(sender : TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateAutoScanMenu;
end;

procedure TForm1.Aktualisieren(sender : TObject);
begin
  CreateAutoScanMenu;
end;

procedure TForm1.CreateAutoScanMenu;

var
  miWork   : TMenuItem;

begin
  while miAutoScan.Count > 0 do miAutoScan.Items[miAutoScan.Count-1].Free;
  miWork          := TMenuItem.Create(miAutoScan);
  miWork.Caption  := 'Aktualisieren';
  miWork.ShortCut := ShortCut(VK_F5,[]);
  miWork.OnClick  := Aktualisieren;
  miAutoScan.Add(miWork);
  Memo1.Lines.Add(IntToStr(Memo1.Lines.Count));
end;

end.

Kann mir jemand dieses Verhalten erklären?