Código Delphi [-] procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_MENU then begin if Menu = nil then Menu:= MainMenu1 else Menu:= nil; Key:= 0; end; end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_MENU then begin if Menu = nil then Menu:= MainMenu1 else Menu:= nil; Key:= 0; end; end;