PopupMenu - Item vorselektieren

[baumina]

So in dieser Art:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  Scan: Cardinal;
  i: Integer;

begin
  Scan := MapVirtualKey(VK_DOWN, 0);
  for i := 1 to 5 do 
  begin
    keybd_event(VK_DOWN, Scan, 0, 0);
    keybd_event(VK_DOWN, Scan, KEYEVENTF_KEYUP, 0);
  end;
end;